home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1991-08-21 | 16.0 KB | [TEXT/????] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: asciitoken.c
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| Compact Compressed (Unix) (archive/compact)
| ext
| Supported |
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, Wed Aug 21 14:35:10 1991, modified Wed Aug 21 14:35:10 1991, creator '????', type ASCII, 15871 bytes "asciitoken.c" , at 0x3e7f 382 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [????] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 61 73 63 69 69 74 | 6f 6b 65 6e 2e 63 00 00 |..asciit|oken.c..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 3f 3f 3f | 3f 00 00 00 00 00 00 00 |.TEXT???|?.......|
|00000050| 00 00 00 00 00 3d ff 00 | 00 01 7e a4 d8 62 de a4 |.....=..|..~..b..|
|00000060| d8 62 de 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.b......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 99 36 00 00 |........|.....6..|
|00000080| 2f 2a 20 74 6f 6b 65 6e | 2e 63 20 69 73 20 74 68 |/* token|.c is th|
|00000090| 65 20 74 6f 6b 65 6e 20 | 68 61 6e 64 6c 69 6e 67 |e token |handling|
|000000a0| 20 72 6f 75 74 69 6e 65 | 2c 20 77 68 69 63 68 20 | routine|, which |
|000000b0| 69 73 20 66 69 6c 6c 65 | 64 20 0d 20 2a 20 20 69 |is fille|d . * i|
|000000c0| 6e 20 77 69 74 68 20 74 | 68 65 20 72 6f 75 74 69 |n with t|he routi|
|000000d0| 6e 65 73 20 65 78 65 63 | 75 74 65 64 20 77 68 65 |nes exec|uted whe|
|000000e0| 6e 20 61 6e 20 61 63 74 | 69 6f 6e 20 64 65 73 63 |n an act|ion desc|
|000000f0| 72 69 62 65 64 20 62 79 | 20 61 20 74 6f 6b 65 6e |ribed by| a token|
|00000100| 20 65 6e 74 72 79 20 0d | 20 2a 20 20 69 73 20 66 | entry .| * is f|
|00000110| 6f 75 6e 64 2e 0d 20 2a | 2f 0d 0d 2f 2a 0d 09 43 |ound.. *|/../*..C|
|00000120| 6f 70 79 72 69 67 68 74 | 20 43 6f 72 6e 65 6c 6c |opyright| Cornell|
|00000130| 20 55 6e 69 76 65 72 73 | 69 74 79 20 31 39 38 36 | Univers|ity 1986|
|00000140| 2e 20 20 41 6c 6c 20 72 | 69 67 68 74 73 20 61 72 |. All r|ights ar|
|00000150| 65 20 72 65 73 65 72 76 | 65 64 2e 0d 0d 2a 2f 0d |e reserv|ed...*/.|
|00000160| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 65 6d 2e 68 3e |.#includ|e <em.h>|
|00000170| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 3c 63 6e 74 6c |..#inclu|de <cntl|
|00000180| 64 65 66 73 2e 68 3e 0d | 23 69 6e 63 6c 75 64 65 |defs.h>.|#include|
|00000190| 20 3c 72 63 6f 64 65 73 | 2e 68 3e 0d 23 69 6e 63 | <rcodes|.h>.#inc|
|000001a0| 6c 75 64 65 20 3c 68 31 | 39 2e 68 3e 0d 23 69 6e |lude <h1|9.h>.#in|
|000001b0| 63 6c 75 64 65 20 3c 33 | 32 37 30 2e 68 3e 0d 23 |clude <3|270.h>.#|
|000001c0| 69 6e 63 6c 75 64 65 20 | 3c 6d 61 63 64 65 66 73 |include |<macdefs|
|000001d0| 2e 68 3e 0d 0d 73 68 6f | 72 74 20 61 73 63 69 69 |.h>..sho|rt ascii|
|000001e0| 66 6c 75 73 68 3b 09 09 | 09 2f 2a 20 65 6d 64 70 |flush;..|./* emdp|
|000001f0| 2d 3e 70 75 74 66 6c 75 | 73 68 20 6e 65 65 64 73 |->putflu|sh needs|
|00000200| 20 74 6f 20 62 65 20 63 | 61 6c 6c 65 64 20 2a 2f | to be c|alled */|
|00000210| 0d 0d 70 72 6f 63 5f 74 | 6f 6b 65 6e 28 74 6b 70 |..proc_t|oken(tkp|
|00000220| 74 72 29 0d 73 74 72 75 | 63 74 20 74 6f 6b 65 6e |tr).stru|ct token|
|00000230| 20 2a 74 6b 70 74 72 3b | 0d 7b 0d 09 73 77 69 74 | *tkptr;|.{..swit|
|00000240| 63 68 28 74 6b 70 74 72 | 2d 3e 63 6c 61 73 73 29 |ch(tkptr|->class)|
|00000250| 20 7b 0d 09 09 63 61 73 | 65 20 52 53 4c 54 5f 41 | {...cas|e RSLT_A|
|00000260| 53 43 49 3a 20 7b 0d 09 | 09 09 2f 2a 20 61 73 63 |SCI: {..|../* asc|
|00000270| 69 69 20 63 68 61 72 61 | 63 74 65 72 09 2a 2f 20 |ii chara|cter.*/ |
|00000280| 0d 0d 09 09 09 69 66 20 | 28 65 6d 64 70 2d 3e 63 |.....if |(emdp->c|
|00000290| 6f 6e 6e 74 79 70 65 20 | 3d 3d 20 43 4f 4e 4e 5f |onntype |== CONN_|
|000002a0| 4d 41 43 54 43 50 0d 09 | 09 09 09 09 7c 7c 20 65 |MACTCP..|....|| e|
|000002b0| 6d 64 70 2d 3e 63 6f 6e | 6e 74 79 70 65 20 3d 3d |mdp->con|ntype ==|
|000002c0| 20 43 4f 4e 4e 5f 43 55 | 54 43 50 29 20 7b 0d 09 | CONN_CU|TCP) {..|
|000002d0| 09 09 09 69 66 20 28 74 | 6b 70 74 72 2d 3e 65 6e |...if (t|kptr->en|
|000002e0| 74 72 79 20 3d 3d 20 54 | 4e 49 41 43 29 20 0d 09 |try == T|NIAC) ..|
|000002f0| 09 09 09 09 2f 2a 20 73 | 65 6e 64 20 49 41 43 2d |..../* s|end IAC-|
|00000300| 49 41 43 20 66 6f 72 20 | 49 41 43 20 75 6e 64 65 |IAC for |IAC unde|
|00000310| 72 20 54 65 6c 6e 65 74 | 20 2a 2f 0d 09 09 09 09 |r Telnet| */.....|
|00000320| 09 61 73 63 69 69 73 65 | 6e 64 63 68 61 72 28 54 |.asciise|ndchar(T|
|00000330| 4e 49 41 43 29 3b 0d 09 | 09 09 7d 09 0d 09 09 09 |NIAC);..|..}.....|
|00000340| 69 66 20 28 74 6b 70 74 | 72 2d 3e 65 6e 74 72 79 |if (tkpt|r->entry|
|00000350| 20 3d 3d 20 58 5f 4f 46 | 46 29 0d 09 09 09 09 65 | == X_OF|F).....e|
|00000360| 6d 64 70 2d 3e 75 73 65 | 72 78 6f 66 66 20 3d 20 |mdp->use|rxoff = |
|00000370| 54 52 55 45 3b 0d 09 09 | 09 65 6c 73 65 0d 09 09 |TRUE;...|.else...|
|00000380| 09 09 65 6d 64 70 2d 3e | 75 73 65 72 78 6f 66 66 |..emdp->|userxoff|
|00000390| 20 3d 20 46 41 4c 53 45 | 3b 0d 09 09 09 09 0d 09 | = FALSE|;.......|
|000003a0| 09 09 69 66 20 28 61 73 | 63 69 69 73 65 6e 64 63 |..if (as|ciisendc|
|000003b0| 68 61 72 28 74 6b 70 74 | 72 2d 3e 65 6e 74 72 79 |har(tkpt|r->entry|
|000003c0| 29 29 0d 09 09 09 09 2f | 2a 20 6e 6f 20 72 6f 6f |))...../|* no roo|
|000003d0| 6d 20 74 6f 20 62 75 66 | 66 65 72 20 63 68 61 72 |m to buf|fer char|
|000003e0| 61 63 74 65 72 20 2a 2f | 0d 09 09 09 09 72 65 74 |acter */|.....ret|
|000003f0| 75 72 6e 28 2d 31 29 3b | 0d 09 09 09 62 72 65 61 |urn(-1);|....brea|
|00000400| 6b 3b 0d 09 09 7d 0d 09 | 09 63 61 73 65 20 52 53 |k;...}..|.case RS|
|00000410| 4c 54 5f 45 44 49 54 3a | 20 7b 0d 09 09 09 69 66 |LT_EDIT:| {....if|
|00000420| 20 28 73 74 64 65 64 69 | 74 28 74 6b 70 74 72 2d | (stdedi|t(tkptr-|
|00000430| 3e 65 6e 74 72 79 29 29 | 20 7b 0d 09 09 09 09 2f |>entry))| {...../|
|00000440| 2a 20 73 74 64 65 64 69 | 74 20 64 69 64 6e 27 74 |* stdedi|t didn't|
|00000450| 20 68 61 6e 64 6c 65 20 | 74 68 65 20 69 74 65 6d | handle |the item|
|00000460| 20 2a 2f 0d 09 09 09 09 | 69 66 20 28 74 6b 70 74 | */.....|if (tkpt|
|00000470| 72 2d 3e 65 6e 74 72 79 | 20 3d 3d 20 45 44 5f 50 |r->entry| == ED_P|
|00000480| 41 53 54 45 29 20 7b 0d | 09 09 09 09 09 2f 2a 20 |ASTE) {.|...../* |
|00000490| 54 4f 44 4f 3a 20 20 41 | 53 43 49 49 20 50 41 53 |TODO: A|SCII PAS|
|000004a0| 54 45 20 6e 65 65 64 73 | 20 74 6f 20 62 65 20 69 |TE needs| to be i|
|000004b0| 6d 70 72 6f 76 65 64 20 | 0d 09 09 09 09 09 09 74 |mproved |.......t|
|000004c0| 61 6b 65 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |ake the |current |
|000004d0| 73 63 72 61 70 20 26 20 | 66 65 65 64 20 69 74 20 |scrap & |feed it |
|000004e0| 69 6e 74 6f 20 70 72 6f | 63 5f 74 6f 6b 65 6e 3f |into pro|c_token?|
|000004f0| 20 0d 09 09 09 09 09 09 | 73 68 6f 75 6c 64 20 68 | .......|should h|
|00000500| 61 6e 64 6c 65 20 65 63 | 68 6f 69 6e 67 2c 20 74 |andle ec|hoing, t|
|00000510| 69 6d 65 64 20 6c 69 6e | 65 2f 63 68 61 72 61 63 |imed lin|e/charac|
|00000520| 74 65 72 20 64 65 6c 61 | 79 73 20 2a 2f 0d 09 09 |ter dela|ys */...|
|00000530| 09 09 09 6c 6f 6e 67 20 | 73 63 72 61 70 6c 65 6e |...long |scraplen|
|00000540| 3b 0d 09 09 09 09 09 75 | 6e 73 69 67 6e 65 64 20 |;......u|nsigned |
|00000550| 63 68 61 72 20 2a 20 74 | 68 65 70 3b 0d 09 09 09 |char * t|hep;....|
|00000560| 09 09 75 6e 73 69 67 6e | 65 64 20 63 68 61 72 20 |..unsign|ed char |
|00000570| 74 68 65 63 68 61 72 3b | 0d 09 09 09 09 09 6c 6f |thechar;|......lo|
|00000580| 6e 67 20 74 69 63 6b 63 | 6f 75 6e 74 3b 0d 09 09 |ng tickc|ount;...|
|00000590| 09 09 09 0d 09 09 09 09 | 09 73 63 72 61 70 6c 65 |........|.scraple|
|000005a0| 6e 20 3d 20 67 65 74 74 | 65 78 74 73 63 72 61 70 |n = gett|extscrap|
|000005b0| 28 26 74 68 65 70 29 3b | 0d 09 09 09 09 09 77 68 |(&thep);|......wh|
|000005c0| 69 6c 65 20 28 73 63 72 | 61 70 6c 65 6e 2d 2d 20 |ile (scr|aplen-- |
|000005d0| 3e 20 30 29 20 7b 0d 09 | 09 09 09 09 09 69 66 20 |> 0) {..|.....if |
|000005e0| 28 28 74 68 65 63 68 61 | 72 20 3d 20 2a 74 68 65 |((thecha|r = *the|
|000005f0| 70 2b 2b 29 20 3d 3d 20 | 43 52 29 20 7b 0d 09 09 |p++) == |CR) {...|
|00000600| 09 09 09 09 09 2f 2a 20 | 64 6f 20 61 20 43 52 2f |...../* |do a CR/|
|00000610| 4c 69 6e 65 20 46 65 65 | 64 20 77 68 65 6e 20 77 |Line Fee|d when w|
|00000620| 65 20 73 65 65 20 61 20 | 43 52 20 2a 2f 0d 09 09 |e see a |CR */...|
|00000630| 09 09 09 09 09 69 66 20 | 28 69 73 74 63 70 74 79 |.....if |(istcpty|
|00000640| 70 65 28 29 29 20 7b 0d | 09 09 09 09 09 09 09 09 |pe()) {.|........|
|00000650| 2f 2a 20 74 65 6c 6e 65 | 74 2c 20 73 65 6e 64 20 |/* telne|t, send |
|00000660| 43 52 2d 4c 46 20 2a 2f | 0d 09 09 09 09 09 09 09 |CR-LF */|........|
|00000670| 09 61 73 63 69 69 73 65 | 6e 64 63 68 61 72 28 43 |.asciise|ndchar(C|
|00000680| 52 29 3b 0d 09 09 09 09 | 09 09 09 09 61 73 63 69 |R);.....|....asci|
|00000690| 69 73 65 6e 64 63 68 61 | 72 28 4c 46 29 3b 0d 09 |isendcha|r(LF);..|
|000006a0| 09 09 09 09 09 09 7d 0d | 09 09 09 09 09 09 09 65 |......}.|.......e|
|000006b0| 6c 73 65 20 7b 0d 09 09 | 09 09 09 09 09 09 69 66 |lse {...|......if|
|000006c0| 20 28 65 6d 64 70 2d 3e | 69 62 6d 5f 6b 65 79 6d | (emdp->|ibm_keym|
|000006d0| 6f 64 65 29 20 7b 0d 09 | 09 09 09 09 09 09 09 09 |ode) {..|........|
|000006e0| 61 73 63 69 69 73 65 6e | 64 63 68 61 72 28 4c 46 |asciisen|dchar(LF|
|000006f0| 29 3b 09 2f 2a 20 64 6f | 20 4c 49 4e 45 20 46 45 |);./* do| LINE FE|
|00000700| 45 44 53 20 6c 69 6b 65 | 20 33 32 37 30 20 2a 2f |EDS like| 3270 */|
|00000710| 0d 09 09 09 09 09 09 09 | 09 7d 0d 09 09 09 09 09 |........|.}......|
|00000720| 09 09 09 65 6c 73 65 20 | 7b 0d 09 09 09 09 09 09 |...else |{.......|
|00000730| 09 09 09 61 73 63 69 69 | 73 65 6e 64 63 68 61 72 |...ascii|sendchar|
|00000740| 28 43 52 29 3b 0d 09 09 | 09 09 09 09 09 09 09 69 |(CR);...|.......i|
|00000750| 66 20 28 65 6d 64 70 2d | 3e 76 74 6e 65 77 6c 69 |f (emdp-|>vtnewli|
|00000760| 6e 65 29 0d 09 09 09 09 | 09 09 09 09 09 09 61 73 |ne).....|......as|
|00000770| 63 69 69 73 65 6e 64 63 | 68 61 72 28 4c 46 29 3b |ciisendc|har(LF);|
|00000780| 0d 09 09 09 09 09 09 09 | 09 7d 0d 09 09 09 09 09 |........|.}......|
|00000790| 09 09 7d 0d 09 09 09 09 | 09 09 09 28 2a 65 6d 64 |..}.....|...(*emd|
|000007a0| 70 2d 3e 70 75 74 66 6c | 75 73 68 29 28 29 3b 0d |p->putfl|ush)();.|
|000007b0| 09 09 09 09 09 09 09 44 | 65 6c 61 79 28 28 6c 6f |.......D|elay((lo|
|000007c0| 6e 67 29 20 31 35 2c 20 | 26 74 69 63 6b 63 6f 75 |ng) 15, |&tickcou|
|000007d0| 6e 74 29 3b 0d 09 09 09 | 09 09 09 09 09 2f 2a 20 |nt);....|...../* |
|000007e0| 77 61 69 74 20 74 6f 20 | 6d 61 6b 65 20 73 75 72 |wait to |make sur|
|000007f0| 65 20 74 69 6e 79 20 68 | 6f 73 74 20 62 75 66 66 |e tiny h|ost buff|
|00000800| 65 72 73 20 73 65 72 76 | 69 63 65 64 20 2a 2f 0d |ers serv|iced */.|
|00000810| 09 09 09 09 09 09 09 09 | 2f 2a 20 54 4f 44 4f 20 |........|/* TODO |
|00000820| 73 68 6f 75 6c 64 20 68 | 61 6e 64 6c 65 20 62 79 |should h|andle by|
|00000830| 20 77 61 69 74 69 6e 67 | 20 66 6f 72 20 65 63 68 | waiting| for ech|
|00000840| 6f 3f 20 2a 2f 0d 09 09 | 09 09 09 09 09 73 63 72 |o? */...|.....scr|
|00000850| 65 65 6e 5f 73 65 72 76 | 69 63 65 28 29 3b 0d 09 |een_serv|ice();..|
|00000860| 09 09 09 09 09 7d 0d 09 | 09 09 09 09 09 65 6c 73 |.....}..|.....els|
|00000870| 65 20 7b 0d 09 09 09 09 | 09 09 09 61 73 63 69 69 |e {.....|...ascii|
|00000880| 73 65 6e 64 63 68 61 72 | 28 74 68 65 63 68 61 72 |sendchar|(thechar|
|00000890| 29 3b 0d 09 09 09 09 09 | 09 7d 0d 09 09 09 09 09 |);......|.}......|
|000008a0| 7d 0d 09 09 09 09 09 72 | 65 6c 65 61 73 65 73 63 |}......r|eleasesc|
|000008b0| 72 61 70 28 29 3b 0d 09 | 09 09 09 09 62 72 65 61 |rap();..|....brea|
|000008c0| 6b 3b 0d 09 09 09 09 7d | 0d 09 09 09 09 65 6c 73 |k;.....}|.....els|
|000008d0| 65 0d 09 09 09 09 09 65 | 6e 74 72 79 65 72 72 28 |e......e|ntryerr(|
|000008e0| 74 6b 70 74 72 29 3b 0d | 09 09 09 7d 0d 09 09 09 |tkptr);.|...}....|
|000008f0| 62 72 65 61 6b 3b 0d 09 | 09 7d 0d 09 09 63 61 73 |break;..|.}...cas|
|00000900| 65 20 52 53 4c 54 5f 50 | 46 4b 59 3a 20 7b 0d 09 |e RSLT_P|FKY: {..|
|00000910| 09 09 2f 2a 20 70 72 6f | 67 72 61 6d 20 66 75 6e |../* pro|gram fun|
|00000920| 63 74 69 6f 6e 20 6b 65 | 79 2c 20 65 6e 74 65 72 |ction ke|y, enter|
|00000930| 2c 20 63 6c 65 61 72 20 | 66 6f 72 20 37 31 37 31 |, clear |for 7171|
|00000940| 20 63 6f 6d 70 61 74 69 | 62 69 6c 69 74 79 09 2a | compati|bility.*|
|00000950| 2f 20 0d 09 09 09 69 6e | 74 20 74 68 65 70 66 3b |/ ....in|t thepf;|
|00000960| 0d 0d 09 09 09 74 68 65 | 70 66 20 3d 20 30 3b 0d |.....the|pf = 0;.|
|00000970| 09 09 09 73 77 69 74 63 | 68 20 28 74 6b 70 74 72 |...switc|h (tkptr|
|00000980| 2d 3e 65 6e 74 72 79 29 | 20 7b 0d 09 09 09 09 63 |->entry)| {.....c|
|00000990| 61 73 65 20 50 46 53 48 | 49 46 54 3a 20 7b 0d 09 |ase PFSH|IFT: {..|
|000009a0| 09 09 09 09 69 66 20 28 | 65 6d 64 70 2d 3e 70 66 |....if (|emdp->pf|
|000009b0| 64 75 62 73 68 69 66 74 | 29 20 0d 09 09 09 09 09 |dubshift|) ......|
|000009c0| 09 62 72 65 61 6b 3b 0d | 09 09 09 09 09 69 66 20 |.break;.|.....if |
|000009d0| 28 21 65 6d 64 70 2d 3e | 70 66 73 68 69 66 74 29 |(!emdp->|pfshift)|
|000009e0| 20 7b 0d 09 09 09 09 09 | 09 65 6d 64 70 2d 3e 70 | {......|.emdp->p|
|000009f0| 66 73 68 69 66 74 20 3d | 20 54 52 55 45 3b 0d 09 |fshift =| TRUE;..|
|00000a00| 09 09 09 09 09 70 66 73 | 68 6f 77 73 68 69 66 74 |.....pfs|howshift|
|00000a10| 28 29 3b 0d 09 09 09 09 | 09 7d 0d 09 09 09 09 09 |();.....|.}......|
|00000a20| 65 6c 73 65 20 7b 0d 09 | 09 09 09 09 09 65 6d 64 |else {..|.....emd|
|00000a30| 70 2d 3e 70 66 73 68 69 | 66 74 20 3d 20 46 41 4c |p->pfshi|ft = FAL|
|00000a40| 53 45 3b 0d 09 09 09 09 | 09 09 70 66 63 6c 72 73 |SE;.....|..pfclrs|
|00000a50| 68 69 66 74 28 29 3b 0d | 09 09 09 09 09 7d 0d 09 |hift();.|.....}..|
|00000a60| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 09 7d |....brea|k;.....}|
|00000a70| 0d 09 09 09 09 63 61 73 | 65 20 50 46 44 55 42 53 |.....cas|e PFDUBS|
|00000a80| 48 49 46 54 3a 20 7b 0d | 09 09 09 09 09 69 66 20 |HIFT: {.|.....if |
|00000a90| 28 65 6d 64 70 2d 3e 70 | 66 73 68 69 66 74 29 20 |(emdp->p|fshift) |
|00000aa0| 0d 09 09 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |.......b|reak;...|
|00000ab0| 09 09 09 69 66 20 28 65 | 6d 64 70 2d 3e 70 66 64 |...if (e|mdp->pfd|
|00000ac0| 75 62 73 68 69 66 74 29 | 20 7b 0d 09 09 09 09 09 |ubshift)| {......|
|00000ad0| 09 65 6d 64 70 2d 3e 70 | 66 64 75 62 73 68 69 66 |.emdp->p|fdubshif|
|00000ae0| 74 20 3d 20 54 52 55 45 | 3b 0d 09 09 09 09 09 09 |t = TRUE|;.......|
|00000af0| 70 66 73 68 6f 77 64 75 | 62 73 68 69 66 74 28 29 |pfshowdu|bshift()|
|00000b00| 3b 0d 09 09 09 09 09 7d | 0d 09 09 09 09 09 65 6c |;......}|......el|
|00000b10| 73 65 20 7b 0d 09 09 09 | 09 09 09 65 6d 64 70 2d |se {....|...emdp-|
|00000b20| 3e 70 66 64 75 62 73 68 | 69 66 74 20 3d 20 46 41 |>pfdubsh|ift = FA|
|00000b30| 4c 53 45 3b 0d 09 09 09 | 09 09 09 70 66 63 6c 72 |LSE;....|...pfclr|
|00000b40| 64 75 62 73 68 69 66 74 | 28 29 3b 0d 09 09 09 09 |dubshift|();.....|
|00000b50| 09 7d 0d 09 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |.}......|break;..|
|00000b60| 09 09 09 7d 0d 09 09 09 | 09 63 61 73 65 20 50 46 |...}....|.case PF|
|00000b70| 31 3a 20 0d 09 09 09 09 | 63 61 73 65 20 50 46 32 |1: .....|case PF2|
|00000b80| 3a 0d 09 09 09 09 63 61 | 73 65 20 50 46 33 3a 20 |:.....ca|se PF3: |
|00000b90| 0d 09 09 09 09 63 61 73 | 65 20 50 46 34 3a 0d 09 |.....cas|e PF4:..|
|00000ba0| 09 09 09 63 61 73 65 20 | 50 46 35 3a 20 0d 09 09 |...case |PF5: ...|
|00000bb0| 09 09 63 61 73 65 20 50 | 46 36 3a 0d 09 09 09 09 |..case P|F6:.....|
|00000bc0| 63 61 73 65 20 50 46 37 | 3a 0d 09 09 09 09 63 61 |case PF7|:.....ca|
|00000bd0| 73 65 20 50 46 38 3a 0d | 09 09 09 09 63 61 73 65 |se PF8:.|....case|
|00000be0| 20 50 46 39 3a 0d 09 09 | 09 09 63 61 73 65 20 50 | PF9:...|..case P|
|00000bf0| 46 31 30 3a 0d 09 09 09 | 09 63 61 73 65 20 50 46 |F10:....|.case PF|
|00000c00| 31 31 3a 0d 09 09 09 09 | 63 61 73 65 20 50 46 31 |11:.....|case PF1|
|00000c10| 32 3a 0d 09 09 09 09 63 | 61 73 65 20 50 46 31 33 |2:.....c|ase PF13|
|00000c20| 3a 0d 09 09 09 09 63 61 | 73 65 20 50 46 31 34 3a |:.....ca|se PF14:|
|00000c30| 0d 09 09 09 09 63 61 73 | 65 20 50 46 31 35 3a 0d |.....cas|e PF15:.|
|00000c40| 09 09 09 09 63 61 73 65 | 20 50 46 31 36 3a 0d 09 |....case| PF16:..|
|00000c50| 09 09 09 63 61 73 65 20 | 50 46 31 37 3a 0d 09 09 |...case |PF17:...|
|00000c60| 09 09 63 61 73 65 20 50 | 46 31 38 3a 0d 09 09 09 |..case P|F18:....|
|00000c70| 09 63 61 73 65 20 50 46 | 31 39 3a 0d 09 09 09 09 |.case PF|19:.....|
|00000c80| 63 61 73 65 20 50 46 32 | 30 3a 0d 09 09 09 09 63 |case PF2|0:.....c|
|00000c90| 61 73 65 20 50 46 32 31 | 3a 0d 09 09 09 09 63 61 |ase PF21|:.....ca|
|00000ca0| 73 65 20 50 46 32 32 3a | 0d 09 09 09 09 63 61 73 |se PF22:|.....cas|
|00000cb0| 65 20 50 46 32 33 3a 0d | 09 09 09 09 63 61 73 65 |e PF23:.|....case|
|00000cc0| 20 50 46 32 34 3a 20 7b | 0d 09 09 09 09 09 74 68 | PF24: {|......th|
|00000cd0| 65 70 66 20 3d 20 74 6b | 70 74 72 2d 3e 65 6e 74 |epf = tk|ptr->ent|
|00000ce0| 72 79 3b 0d 09 09 09 09 | 09 62 72 65 61 6b 3b 0d |ry;.....|.break;.|
|00000cf0| 09 09 09 09 7d 0d 09 09 | 09 09 63 61 73 65 20 50 |....}...|..case P|
|00000d00| 41 31 3a 20 7b 0d 09 09 | 09 09 09 73 65 6e 64 70 |A1: {...|...sendp|
|00000d10| 61 31 28 29 3b 0d 09 09 | 09 09 09 62 72 65 61 6b |a1();...|...break|
|00000d20| 3b 0d 09 09 09 09 7d 0d | 09 09 09 09 63 61 73 65 |;.....}.|....case|
|00000d30| 20 50 41 32 3a 20 7b 0d | 09 09 09 09 09 73 65 6e | PA2: {.|.....sen|
|00000d40| 64 70 61 32 28 29 3b 0d | 09 09 09 09 09 62 72 65 |dpa2();.|.....bre|
|00000d50| 61 6b 3b 0d 09 09 09 09 | 7d 0d 09 09 09 09 63 61 |ak;.....|}.....ca|
|00000d60| 73 65 20 50 41 33 3a 20 | 7b 0d 09 09 09 09 09 73 |se PA3: |{......s|
|00000d70| 65 6e 64 70 61 33 28 29 | 3b 0d 09 09 09 09 09 62 |endpa3()|;......b|
|00000d80| 72 65 61 6b 3b 0d 09 09 | 09 09 7d 0d 09 09 09 09 |reak;...|..}.....|
|00000d90| 63 61 73 65 20 43 4c 45 | 41 52 3a 20 7b 0d 09 09 |case CLE|AR: {...|
|00000da0| 09 09 09 73 65 6e 64 43 | 6c 65 61 72 28 29 3b 0d |...sendC|lear();.|
|00000db0| 09 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 09 |.....bre|ak;.....|
|00000dc0| 7d 0d 09 09 09 09 63 61 | 73 65 20 45 4e 54 45 52 |}.....ca|se ENTER|
|00000dd0| 3a 20 7b 0d 09 09 09 09 | 09 73 65 6e 64 45 6e 74 |: {.....|.sendEnt|
|00000de0| 65 72 28 29 3b 0d 09 09 | 09 09 09 62 72 65 61 6b |er();...|...break|
|00000df0| 3b 0d 09 09 09 09 7d 0d | 09 09 09 09 64 65 66 61 |;.....}.|....defa|
|00000e00| 75 6c 74 3a 20 7b 0d 09 | 09 09 09 09 65 6e 74 72 |ult: {..|....entr|
|00000e10| 79 65 72 72 28 74 6b 70 | 74 72 29 3b 0d 09 09 09 |yerr(tkp|tr);....|
|00000e20| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 09 7d 0d 09 |..break;|.....}..|
|00000e30| 09 09 7d 0d 09 09 09 69 | 66 20 28 74 68 65 70 66 |..}....i|f (thepf|
|00000e40| 20 21 3d 20 30 29 20 7b | 0d 09 09 09 09 2f 2a 20 | != 0) {|...../* |
|00000e50| 61 20 70 66 20 6b 65 79 | 20 73 68 6f 75 6c 64 20 |a pf key| should |
|00000e60| 62 65 20 73 65 6e 74 20 | 2a 2f 0d 09 09 09 09 69 |be sent |*/.....i|
|00000e70| 66 20 28 65 6d 64 70 2d | 3e 70 66 73 68 69 66 74 |f (emdp-|>pfshift|
|00000e80| 29 20 7b 0d 09 09 09 09 | 09 65 6d 64 70 2d 3e 70 |) {.....|.emdp->p|
|00000e90| 66 73 68 69 66 74 20 3d | 20 46 41 4c 53 45 3b 0d |fshift =| FALSE;.|
|00000ea0| 09 09 09 09 09 65 6d 64 | 70 2d 3e 70 66 64 75 62 |.....emd|p->pfdub|
|00000eb0| 73 68 69 66 74 20 3d 20 | 46 41 4c 53 45 3b 0d 09 |shift = |FALSE;..|
|00000ec0| 09 09 09 09 70 66 63 6c | 72 73 68 69 66 74 28 29 |....pfcl|rshift()|
|00000ed0| 3b 0d 09 09 09 09 09 70 | 66 63 6c 72 64 75 62 73 |;......p|fclrdubs|
|00000ee0| 68 69 66 74 28 29 3b 0d | 09 09 09 09 09 74 68 65 |hift();.|.....the|
|00000ef0| 70 66 20 2b 3d 20 31 32 | 3b 0d 09 09 09 09 09 74 |pf += 12|;......t|
|00000f00| 6b 70 74 72 2d 3e 65 6e | 74 72 79 20 2b 3d 20 31 |kptr->en|try += 1|
|00000f10| 32 3b 20 0d 09 09 09 09 | 7d 0d 09 09 09 09 65 6c |2; .....|}.....el|
|00000f20| 73 65 20 69 66 20 28 65 | 6d 64 70 2d 3e 70 66 64 |se if (e|mdp->pfd|
|00000f30| 75 62 73 68 69 66 74 29 | 20 7b 0d 09 09 09 09 09 |ubshift)| {......|
|00000f40| 65 6d 64 70 2d 3e 70 66 | 73 68 69 66 74 20 3d 20 |emdp->pf|shift = |
|00000f50| 46 41 4c 53 45 3b 0d 09 | 09 09 09 09 65 6d 64 70 |FALSE;..|....emdp|
|00000f60| 2d 3e 70 66 64 75 62 73 | 68 69 66 74 20 3d 20 46 |->pfdubs|hift = F|
|00000f70| 41 4c 53 45 3b 0d 09 09 | 09 09 09 70 66 63 6c 72 |ALSE;...|...pfclr|
|00000f80| 73 68 69 66 74 28 29 3b | 0d 09 09 09 09 09 70 66 |shift();|......pf|
|00000f90| 63 6c 72 64 75 62 73 68 | 69 66 74 28 29 3b 0d 09 |clrdubsh|ift();..|
|00000fa0| 09 09 09 09 74 68 65 70 | 66 20 2b 3d 20 32 34 3b |....thep|f += 24;|
|00000fb0| 0d 09 09 09 09 09 74 6b | 70 74 72 2d 3e 65 6e 74 |......tk|ptr->ent|
|00000fc0| 72 79 20 2b 3d 20 32 34 | 3b 0d 09 09 09 09 7d 0d |ry += 24|;.....}.|
|00000fd0| 09 09 09 09 73 65 6e 64 | 70 66 28 74 68 65 70 66 |....send|pf(thepf|
|00000fe0| 29 3b 0d 09 09 09 7d 0d | 09 09 09 62 72 65 61 6b |);....}.|...break|
|00000ff0| 3b 0d 09 09 7d 0d 09 09 | 63 61 73 65 20 52 53 4c |;...}...|case RSL|
|00001000| 54 5f 4d 56 43 52 3a 20 | 7b 0d 09 09 09 2f 2a 20 |T_MVCR: |{..../* |
|00001010| 49 42 4d 20 63 75 72 73 | 6f 72 20 6d 6f 76 65 6d |IBM curs|or movem|
|00001020| 65 6e 74 20 6b 65 79 20 | 37 31 37 31 20 63 6f 6d |ent key |7171 com|
|00001030| 70 61 74 69 62 69 6c 69 | 74 79 20 2a 2f 20 0d 09 |patibili|ty */ ..|
|00001040| 09 09 73 77 69 74 63 68 | 20 28 74 6b 70 74 72 2d |..switch| (tkptr-|
|00001050| 3e 65 6e 74 72 79 29 20 | 7b 0d 09 09 09 20 09 63 |>entry) |{.... .c|
|00001060| 61 73 65 20 4c 45 46 54 | 5f 41 52 52 4f 57 3a 09 |ase LEFT|_ARROW:.|
|00001070| 7b 0d 09 09 09 09 09 73 | 65 6e 64 4c 65 66 74 28 |{......s|endLeft(|
|00001080| 31 29 3b 0d 09 09 09 20 | 09 09 62 72 65 61 6b 3b |1);.... |..break;|
|00001090| 0d 09 09 09 09 7d 0d 09 | 09 09 09 63 61 73 65 20 |.....}..|...case |
|000010a0| 52 49 47 48 54 5f 41 52 | 52 4f 57 3a 20 20 7b 0d |RIGHT_AR|ROW: {.|
|000010b0| 09 09 09 09 09 73 65 6e | 64 52 69 67 68 74 28 31 |.....sen|dRight(1|
|000010c0| 29 3b 0d 09 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |);......|break;..|
|000010d0| 09 09 09 7d 09 0d 09 09 | 09 09 63 61 73 65 20 55 |...}....|..case U|
|000010e0| 50 5f 41 52 52 4f 57 3a | 20 7b 0d 09 09 09 09 09 |P_ARROW:| {......|
|000010f0| 73 65 6e 64 55 70 28 31 | 29 3b 0d 09 09 09 09 09 |sendUp(1|);......|
|00001100| 62 72 65 61 6b 3b 0d 09 | 09 09 09 7d 0d 09 09 09 |break;..|...}....|
|00001110| 09 63 61 73 65 20 44 4f | 57 4e 5f 41 52 52 4f 57 |.case DO|WN_ARROW|
|00001120| 3a 20 7b 0d 09 09 09 09 | 09 73 65 6e 64 44 6f 77 |: {.....|.sendDow|
|00001130| 6e 28 31 29 3b 0d 09 09 | 09 09 09 62 72 65 61 6b |n(1);...|...break|
|00001140| 3b 0d 09 09 09 09 7d 0d | 09 09 09 09 63 61 73 65 |;.....}.|....case|
|00001150| 20 48 4f 4d 45 3a 20 7b | 0d 09 09 09 09 09 73 65 | HOME: {|......se|
|00001160| 6e 64 48 6f 6d 65 28 29 | 3b 0d 09 09 09 09 09 62 |ndHome()|;......b|
|00001170| 72 65 61 6b 3b 0d 09 09 | 09 09 7d 0d 09 09 09 09 |reak;...|..}.....|
|00001180| 63 61 73 65 20 4e 45 57 | 5f 4c 49 4e 45 3a 20 7b |case NEW|_LINE: {|
|00001190| 0d 09 09 09 09 09 73 65 | 6e 64 4e 65 77 6c 69 6e |......se|ndNewlin|
|000011a0| 65 28 29 3b 0d 09 09 09 | 09 09 62 72 65 61 6b 3b |e();....|..break;|
|000011b0| 0d 09 09 09 09 7d 0d 09 | 09 09 09 63 61 73 65 20 |.....}..|...case |
|000011c0| 54 41 42 5f 46 57 44 3a | 20 7b 0d 09 09 09 09 09 |TAB_FWD:| {......|
|000011d0| 73 65 6e 64 54 61 62 28 | 29 3b 0d 09 09 09 09 09 |sendTab(|);......|
|000011e0| 62 72 65 61 6b 3b 0d 09 | 09 09 09 7d 0d 09 09 09 |break;..|...}....|
|000011f0| 09 63 61 73 65 20 42 41 | 43 4b 5f 54 41 42 3a 20 |.case BA|CK_TAB: |
|00001200| 7b 0d 09 09 09 09 09 73 | 65 6e 64 42 61 63 6b 54 |{......s|endBackT|
|00001210| 61 62 28 29 3b 0d 09 09 | 09 09 09 62 72 65 61 6b |ab();...|...break|
|00001220| 3b 0d 09 09 09 09 7d 0d | 09 09 09 09 64 65 66 61 |;.....}.|....defa|
|00001230| 75 6c 74 3a 20 7b 0d 09 | 09 09 09 09 65 6e 74 72 |ult: {..|....entr|
|00001240| 79 65 72 72 28 74 6b 70 | 74 72 29 3b 0d 09 09 09 |yerr(tkp|tr);....|
|00001250| 09 7d 0d 09 09 09 7d 0d | 09 09 09 62 72 65 61 6b |.}....}.|...break|
|00001260| 3b 0d 09 09 7d 0d 09 09 | 63 61 73 65 20 52 53 4c |;...}...|case RSL|
|00001270| 54 5f 4c 43 41 43 3a 20 | 7b 0d 09 09 09 2f 2a 20 |T_LCAC: |{..../* |
|00001280| 6c 6f 63 61 6c 20 61 63 | 74 69 6f 6e 20 6b 65 79 |local ac|tion key|
|00001290| 09 2a 2f 20 0d 09 09 09 | 73 77 69 74 63 68 28 74 |.*/ ....|switch(t|
|000012a0| 6b 70 74 72 2d 3e 65 6e | 74 72 79 29 20 7b 0d 09 |kptr->en|try) {..|
|000012b0| 09 09 09 63 61 73 65 20 | 42 41 43 4b 53 50 5f 42 |...case |BACKSP_B|
|000012c0| 4c 41 4e 4b 3a 20 7b 0d | 09 09 09 09 09 73 65 6e |LANK: {.|.....sen|
|000012d0| 64 42 53 62 6c 61 6e 6b | 28 29 3b 0d 09 09 09 09 |dBSblank|();.....|
|000012e0| 09 62 72 65 61 6b 3b 0d | 09 09 09 09 7d 0d 09 09 |.break;.|....}...|
|000012f0| 09 09 63 61 73 65 20 49 | 4e 53 52 54 3a 20 7b 0d |..case I|NSRT: {.|
|00001300| 09 09 09 09 09 64 6f 69 | 6e 73 65 72 74 28 29 3b |.....doi|nsert();|
|00001310| 0d 09 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 09 |......br|eak;....|
|00001320| 09 7d 0d 09 09 09 09 63 | 61 73 65 20 45 52 41 53 |.}.....c|ase ERAS|
|00001330| 45 5f 45 4f 46 3a 20 7b | 0d 09 09 09 09 09 73 65 |E_EOF: {|......se|
|00001340| 6e 64 45 72 45 4f 46 28 | 29 3b 0d 09 09 09 09 09 |ndErEOF(|);......|
|00001350| 62 72 65 61 6b 3b 0d 09 | 09 09 09 7d 0d 09 09 09 |break;..|...}....|
|00001360| 09 63 61 73 65 20 49 4e | 50 55 54 5f 45 52 41 53 |.case IN|PUT_ERAS|
|00001370| 45 3a 20 7b 0d 09 09 09 | 09 09 73 65 6e 64 45 72 |E: {....|..sendEr|
|00001380| 49 6e 70 75 74 28 29 3b | 0d 09 09 09 09 09 62 72 |Input();|......br|
|00001390| 65 61 6b 3b 0d 09 09 09 | 09 7d 0d 09 09 09 09 63 |eak;....|.}.....c|
|000013a0| 61 73 65 20 42 41 43 4b | 53 50 5f 44 45 4c 3a 20 |ase BACK|SP_DEL: |
|000013b0| 7b 0d 09 09 09 09 09 73 | 65 6e 64 42 53 44 45 4c |{......s|endBSDEL|
|000013c0| 28 29 3b 0d 09 09 09 09 | 09 62 72 65 61 6b 3b 0d |();.....|.break;.|
|000013d0| 09 09 09 09 7d 0d 09 09 | 09 09 63 61 73 65 20 44 |....}...|..case D|
|000013e0| 45 4c 5f 43 48 41 52 3a | 20 7b 0d 09 09 09 09 09 |EL_CHAR:| {......|
|000013f0| 73 65 6e 64 44 45 4c 28 | 29 3b 0d 09 09 09 09 09 |sendDEL(|);......|
|00001400| 62 72 65 61 6b 3b 0d 09 | 09 09 09 7d 0d 09 09 09 |break;..|...}....|
|00001410| 09 63 61 73 65 20 52 45 | 53 45 54 3a 20 7b 0d 09 |.case RE|SET: {..|
|00001420| 09 09 09 09 73 65 6e 64 | 52 65 73 65 74 28 29 3b |....send|Reset();|
|00001430| 0d 09 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 09 |......br|eak;....|
|00001440| 09 7d 0d 09 09 09 09 64 | 65 66 61 75 6c 74 3a 20 |.}.....d|efault: |
|00001450| 7b 0d 09 09 09 09 09 65 | 6e 74 72 79 65 72 72 28 |{......e|ntryerr(|
|00001460| 74 6b 70 74 72 29 3b 0d | 09 09 09 09 7d 0d 09 09 |tkptr);.|....}...|
|00001470| 09 7d 0d 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 7d |.}....br|eak;...}|
|00001480| 0d 09 09 63 61 73 65 20 | 52 53 4c 54 5f 59 43 55 |...case |RSLT_YCU|
|00001490| 52 53 3a 20 7b 0d 09 09 | 09 2f 2a 20 6d 6f 76 65 |RS: {...|./* move|
|000014a0| 20 74 6f 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 | to begi|nning of|
|000014b0| 20 6c 69 6e 65 20 79 20 | 2a 2f 0d 09 09 09 69 66 | line y |*/....if|
|000014c0| 20 28 74 6b 70 74 72 2d | 3e 65 6e 74 72 79 20 3c | (tkptr-|>entry <|
|000014d0| 20 30 20 7c 7c 20 74 6b | 70 74 72 2d 3e 65 6e 74 | 0 || tk|ptr->ent|
|000014e0| 72 79 20 3e 20 65 6d 64 | 70 2d 3e 6c 61 73 74 72 |ry > emd|p->lastr|
|000014f0| 6f 77 29 20 7b 0d 09 09 | 09 09 65 6e 74 72 79 65 |ow) {...|..entrye|
|00001500| 72 72 28 74 6b 70 74 72 | 29 3b 0d 09 09 09 09 62 |rr(tkptr|);.....b|
|00001510| 72 65 61 6b 3b 0d 09 09 | 09 7d 0d 09 09 09 65 6d |reak;...|.}....em|
|00001520| 64 70 2d 3e 67 6f 74 6f | 79 20 3d 20 74 6b 70 74 |dp->goto|y = tkpt|
|00001530| 72 2d 3e 65 6e 74 72 79 | 3b 0d 09 09 09 62 72 65 |r->entry|;....bre|
|00001540| 61 6b 3b 0d 09 09 7d 0d | 09 09 63 61 73 65 20 52 |ak;...}.|..case R|
|00001550| 53 4c 54 5f 58 43 55 52 | 53 3a 20 7b 0d 09 09 09 |SLT_XCUR|S: {....|
|00001560| 2f 2a 20 6d 6f 76 65 20 | 74 6f 20 61 6e 20 78 20 |/* move |to an x |
|00001570| 6c 6f 63 61 74 69 6f 6e | 20 6f 6e 20 63 75 72 72 |location| on curr|
|00001580| 65 6e 74 20 6c 69 6e 65 | 20 2a 2f 0d 09 09 09 69 |ent line| */....i|
|00001590| 66 20 28 74 6b 70 74 72 | 2d 3e 65 6e 74 72 79 20 |f (tkptr|->entry |
|000015a0| 3c 20 30 20 7c 7c 20 74 | 6b 70 74 72 2d 3e 65 6e |< 0 || t|kptr->en|
|000015b0| 74 72 79 20 3e 20 6c 61 | 73 74 63 6f 6c 29 20 7b |try > la|stcol) {|
|000015c0| 0d 09 09 09 09 65 6e 74 | 72 79 65 72 72 28 74 6b |.....ent|ryerr(tk|
|000015d0| 70 74 72 29 3b 0d 09 09 | 09 09 62 72 65 61 6b 3b |ptr);...|..break;|
|000015e0| 0d 09 09 09 7d 0d 09 09 | 09 69 66 20 28 65 6d 64 |....}...|.if (emd|
|000015f0| 70 2d 3e 67 6f 74 6f 79 | 20 21 3d 20 2d 31 29 20 |p->gotoy| != -1) |
|00001600| 7b 0d 09 09 09 09 63 75 | 72 73 6d 6f 76 65 74 6f |{.....cu|rsmoveto|
|00001610| 28 74 6b 70 74 72 2d 3e | 65 6e 74 72 79 2c 20 65 |(tkptr->|entry, e|
|00001620| 6d 64 70 2d 3e 67 6f 74 | 6f 79 29 3b 0d 09 09 09 |mdp->got|oy);....|
|00001630| 09 65 6d 64 70 2d 3e 67 | 6f 74 6f 79 20 3d 20 2d |.emdp->g|otoy = -|
|00001640| 31 3b 0d 09 09 09 7d 0d | 09 09 09 65 6c 73 65 20 |1;....}.|...else |
|00001650| 7b 0d 09 09 09 09 63 75 | 72 73 6d 6f 76 65 74 6f |{.....cu|rsmoveto|
|00001660| 28 74 6b 70 74 72 2d 3e | 65 6e 74 72 79 2c 20 79 |(tkptr->|entry, y|
|00001670| 70 6f 73 29 3b 0d 09 09 | 09 7d 0d 09 09 09 62 72 |pos);...|.}....br|
|00001680| 65 61 6b 3b 0d 09 09 7d | 0d 09 09 64 65 66 61 75 |eak;...}|...defau|
|00001690| 6c 74 3a 20 7b 0d 09 09 | 09 69 66 20 28 73 74 64 |lt: {...|.if (std|
|000016a0| 74 6f 6b 65 6e 28 74 6b | 70 74 72 29 29 0d 09 09 |token(tk|ptr))...|
|000016b0| 09 09 63 6c 61 73 73 65 | 72 72 28 74 6b 70 74 72 |..classe|rr(tkptr|
|000016c0| 29 3b 0d 09 09 7d 0d 09 | 7d 0d 09 72 65 74 75 72 |);...}..|}..retur|
|000016d0| 6e 28 30 29 3b 09 0d 7d | 0d 0d 0d 2f 2a 20 74 68 |n(0);..}|.../* th|
|000016e0| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 72 6f 75 74 |e follow|ing rout|
|000016f0| 69 6e 65 73 20 22 73 65 | 6e 64 2a 22 20 73 65 6e |ines "se|nd*" sen|
|00001700| 64 20 20 37 31 37 31 20 | 74 72 61 6e 73 6c 61 74 |d 7171 |translat|
|00001710| 6f 72 20 73 70 65 63 69 | 66 69 63 20 73 65 71 75 |or speci|fic sequ|
|00001720| 65 6e 63 65 73 20 2a 2f | 0d 0d 73 65 6e 64 70 66 |ences */|..sendpf|
|00001730| 28 70 66 6b 65 79 29 0d | 69 6e 74 20 70 66 6b 65 |(pfkey).|int pfke|
|00001740| 79 3b 0d 7b 0d 09 61 73 | 63 69 69 73 65 6e 64 63 |y;.{..as|ciisendc|
|00001750| 68 61 72 28 45 53 43 29 | 3b 0d 0d 09 73 77 69 74 |har(ESC)|;...swit|
|00001760| 63 68 20 28 70 66 6b 65 | 79 29 20 7b 0d 09 09 63 |ch (pfke|y) {...c|
|00001770| 61 73 65 20 31 3a 20 7b | 0d 09 09 09 61 73 63 69 |ase 1: {|....asci|
|00001780| 69 73 65 6e 64 63 68 61 | 72 28 27 31 27 29 3b 0d |isendcha|r('1');.|
|00001790| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 7d 0d 09 09 |...break|;...}...|
|000017a0| 63 61 73 65 20 32 3a 20 | 7b 0d 09 09 09 61 73 63 |case 2: |{....asc|
|000017b0| 69 69 73 65 6e 64 63 68 | 61 72 28 27 32 27 29 3b |iisendch|ar('2');|
|000017c0| 0d 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 7d 0d 09 |....brea|k;...}..|
|000017d0| 09 63 61 73 65 20 33 3a | 20 7b 0d 09 09 09 61 73 |.case 3:| {....as|
|000017e0| 63 69 69 73 65 6e 64 63 | 68 61 72 28 27 33 27 29 |ciisendc|har('3')|
|000017f0| 3b 0d 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 7d 0d |;....bre|ak;...}.|
|00001800| 09 09 63 61 73 65 20 34 | 3a 20 7b 0d 09 09 09 61 |..case 4|: {....a|
|00001810| 73 63 69 69 73 65 6e 64 | 63 68 61 72 28 27 34 27 |sciisend|char('4'|
|00001820| 29 3b 0d 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 7d |);....br|eak;...}|
|00001830| 0d 09 09 63 61 73 65 20 | 35 3a 20 7b 0d 09 09 09 |...case |5: {....|
|00001840| 61 73 63 69 69 73 65 6e | 64 63 68 61 72 28 27 35 |asciisen|dchar('5|
|00001850| 27 29 3b 0d 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |');....b|reak;...|
|00001860| 7d 0d 09 09 63 61 73 65 | 20 36 3a 20 7b 0d 09 09 |}...case| 6: {...|
|00001870| 09 61 73 63 69 69 73 65 | 6e 64 63 68 61 72 28 27 |.asciise|ndchar('|
|00001880| 36 27 29 3b 0d 09 09 09 | 62 72 65 61 6b 3b 0d 09 |6');....|break;..|
|00001890| 09 7d 0d 09 09 63 61 73 | 65 20 37 3a 20 7b 0d 09 |.}...cas|e 7: {..|
|000018a0| 09 09 61 73 63 69 69 73 | 65 6e 64 63 68 61 72 28 |..asciis|endchar(|
|000018b0| 27 37 27 29 3b 0d 09 09 | 09 62 72 65 61 6b 3b 0d |'7');...|.break;.|
|000018c0| 09 09 7d 0d 09 09 63 61 | 73 65 20 38 3a 20 7b 0d |..}...ca|se 8: {.|
|000018d0| 09 09 09 61 73 63 69 69 | 73 65 6e 64 63 68 61 72 |...ascii|sendchar|
|000018e0| 28 27 38 27 29 3b 0d 09 | 09 09 62 72 65 61 6b 3b |('8');..|..break;|
|000018f0| 0d 09 09 7d 0d 09 09 63 | 61 73 65 20 39 3a 20 7b |...}...c|ase 9: {|
|00001900| 0d 09 09 09 61 73 63 69 | 69 73 65 6e 64 63 68 61 |....asci|isendcha|
|00001910| 72 28 27 39 27 29 3b 0d | 09 09 09 62 72 65 61 6b |r('9');.|...break|
|00001920| 3b 0d 09 09 7d 0d 09 09 | 63 61 73 65 20 31 30 3a |;...}...|case 10:|
|00001930| 20 7b 0d 09 09 09 61 73 | 63 69 69 73 65 6e 64 63 | {....as|ciisendc|
|00001940| 68 61 72 28 27 30 27 29 | 3b 0d 09 09 09 62 72 65 |har('0')|;....bre|
|00001950| 61 6b 3b 0d 09 09 7d 0d | 09 09 63 61 73 65 20 31 |ak;...}.|..case 1|
|00001960| 31 3a 20 7b 0d 09 09 09 | 61 73 63 69 69 73 65 6e |1: {....|asciisen|
|00001970| 64 63 68 61 72 28 27 2d | 27 29 3b 0d 09 09 09 62 |dchar('-|');....b|
|00001980| 72 65 61 6b 3b 0d 09 09 | 7d 0d 09 09 63 61 73 65 |reak;...|}...case|
|00001990| 20 31 32 3a 20 7b 0d 09 | 09 09 61 73 63 69 69 73 | 12: {..|..asciis|
|000019a0| 65 6e 64 63 68 61 72 28 | 27 3d 27 29 3b 0d 09 09 |endchar(|'=');...|
|000019b0| 09 62 72 65 61 6b 3b 0d | 09 09 7d 0d 09 09 63 61 |.break;.|..}...ca|
|000019c0| 73 65 20 31 33 3a 20 7b | 0d 09 09 09 61 73 63 69 |se 13: {|....asci|
|000019d0| 69 73 65 6e 64 63 68 61 | 72 28 27 21 27 29 3b 0d |isendcha|r('!');.|
|000019e0| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 7d 0d 09 09 |...break|;...}...|
|000019f0| 63 61 73 65 20 31 34 3a | 20 7b 0d 09 09 09 61 73 |case 14:| {....as|
|00001a00| 63 69 69 73 65 6e 64 63 | 68 61 72 28 27 40 27 29 |ciisendc|har('@')|
|00001a10| 3b 0d 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 7d 0d |;....bre|ak;...}.|
|00001a20| 09 09 63 61 73 65 20 31 | 35 3a 20 7b 0d 09 09 09 |..case 1|5: {....|
|00001a30| 61 73 63 69 69 73 65 6e | 64 63 68 61 72 28 27 23 |asciisen|dchar('#|
|00001a40| 27 29 3b 0d 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |');....b|reak;...|
|00001a50| 7d 0d 09 09 63 61 73 65 | 20 31 36 3a 20 7b 0d 09 |}...case| 16: {..|
|00001a60| 09 09 61 73 63 69 69 73 | 65 6e 64 63 68 61 72 28 |..asciis|endchar(|
|00001a70| 27 24 27 29 3b 0d 09 09 | 09 62 72 65 61 6b 3b 0d |'$');...|.break;.|
|00001a80| 09 09 7d 0d 09 09 63 61 | 73 65 20 31 37 3a 20 7b |..}...ca|se 17: {|
|00001a90| 0d 09 09 09 61 73 63 69 | 69 73 65 6e 64 63 68 61 |....asci|isendcha|
|00001aa0| 72 28 27 25 27 29 3b 0d | 09 09 09 62 72 65 61 6b |r('%');.|...break|
|00001ab0| 3b 0d 09 09 7d 0d 09 09 | 63 61 73 65 20 31 38 3a |;...}...|case 18:|
|00001ac0| 20 7b 0d 09 09 09 61 73 | 63 69 69 73 65 6e 64 63 | {....as|ciisendc|
|00001ad0| 68 61 72 28 27 5e 27 29 | 3b 0d 09 09 09 62 72 65 |har('^')|;....bre|
|00001ae0| 61 6b 3b 0d 09 09 7d 0d | 09 09 63 61 73 65 20 31 |ak;...}.|..case 1|
|00001af0| 39 3a 20 7b 0d 09 09 09 | 61 73 63 69 69 73 65 6e |9: {....|asciisen|
|00001b00| 64 63 68 61 72 28 27 26 | 27 29 3b 0d 09 09 09 62 |dchar('&|');....b|
|00001b10| 72 65 61 6b 3b 0d 09 09 | 7d 0d 09 09 63 61 73 65 |reak;...|}...case|
|00001b20| 20 32 30 3a 20 7b 0d 09 | 09 09 61 73 63 69 69 73 | 20: {..|..asciis|
|00001b30| 65 6e 64 63 68 61 72 28 | 27 2a 27 29 3b 0d 09 09 |endchar(|'*');...|
|00001b40| 09 62 72 65 61 6b 3b 0d | 09 09 7d 0d 09 09 63 61 |.break;.|..}...ca|
|00001b50| 73 65 20 32 31 3a 20 7b | 0d 09 09 09 61 73 63 69 |se 21: {|....asci|
|00001b60| 69 73 65 6e 64 63 68 61 | 72 28 27 28 27 29 3b 0d |isendcha|r('(');.|
|00001b70| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 7d 0d 09 09 |...break|;...}...|
|00001b80| 63 61 73 65 20 32 32 3a | 20 7b 0d 09 09 09 61 73 |case 22:| {....as|
|00001b90| 63 69 69 73 65 6e 64 63 | 68 61 72 28 27 29 27 29 |ciisendc|har(')')|
|00001ba0| 3b 0d 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 7d 0d |;....bre|ak;...}.|
|00001bb0| 09 09 63 61 73 65 20 32 | 33 3a 20 7b 0d 09 09 09 |..case 2|3: {....|
|00001bc0| 61 73 63 69 69 73 65 6e | 64 63 68 61 72 28 27 5f |asciisen|dchar('_|
|00001bd0| 27 29 3b 0d 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |');....b|reak;...|
|00001be0| 7d 0d 09 09 63 61 73 65 | 20 32 34 3a 20 7b 0d 09 |}...case| 24: {..|
|00001bf0| 09 09 61 73 63 69 69 73 | 65 6e 64 63 68 61 72 28 |..asciis|endchar(|
|00001c00| 27 2b 27 29 3b 0d 09 09 | 09 62 72 65 61 6b 3b 0d |'+');...|.break;.|
|00001c10| 09 09 7d 0d 09 09 64 65 | 66 61 75 6c 74 3a 20 7b |..}...de|fault: {|
|00001c20| 0d 09 09 09 65 72 72 6f | 72 28 22 42 61 64 20 50 |....erro|r("Bad P|
|00001c30| 46 20 6b 65 79 20 63 6f | 64 65 22 29 3b 0d 09 09 |F key co|de");...|
|00001c40| 7d 0d 09 7d 0d 09 73 61 | 76 65 73 63 72 65 65 6e |}..}..sa|vescreen|
|00001c50| 28 29 3b 0d 09 09 2f 2a | 20 73 61 76 65 20 74 68 |();.../*| save th|
|00001c60| 65 20 73 63 72 65 65 6e | 20 62 65 66 6f 72 65 20 |e screen| before |
|00001c70| 69 74 20 67 65 74 73 20 | 6f 76 65 72 77 72 69 74 |it gets |overwrit|
|00001c80| 74 65 6e 20 2a 2f 0d 0d | 7d 0d 0d 73 65 6e 64 70 |ten */..|}..sendp|
|00001c90| 61 31 28 29 0d 7b 0d 09 | 69 66 20 28 65 6d 64 70 |a1().{..|if (emdp|
|00001ca0| 2d 3e 65 76 65 6e 74 5f | 72 65 67 20 26 20 54 46 |->event_|reg & TF|
|00001cb0| 54 50 5f 4f 4e 29 20 7b | 0d 09 09 2f 2a 20 63 61 |TP_ON) {|.../* ca|
|00001cc0| 6e 63 65 6c 20 66 69 6c | 65 20 74 72 61 6e 73 66 |ncel fil|e transf|
|00001cd0| 65 72 20 2a 2f 0d 09 09 | 66 74 5f 75 73 72 28 29 |er */...|ft_usr()|
|00001ce0| 3b 0d 09 7d 0d 09 65 6c | 73 65 20 7b 0d 09 09 61 |;..}..el|se {...a|
|00001cf0| 73 63 69 69 73 65 6e 64 | 63 68 61 72 28 45 53 43 |sciisend|char(ESC|
|00001d00| 29 3b 0d 09 09 61 73 63 | 69 69 73 65 6e 64 63 68 |);...asc|iisendch|
|00001d10| 61 72 28 27 2c 27 29 3b | 0d 0d 09 09 73 61 76 65 |ar(',');|....save|
|00001d20| 73 63 72 65 65 6e 28 29 | 3b 0d 09 09 09 2f 2a 20 |screen()|;..../* |
|00001d30| 73 61 76 65 20 74 68 65 | 20 73 63 72 65 65 6e 20 |save the| screen |
|00001d40| 62 65 66 6f 72 65 20 69 | 74 20 67 65 74 73 20 6f |before i|t gets o|
|00001d50| 76 65 72 77 72 69 74 74 | 65 6e 20 2a 2f 0d 09 0d |verwritt|en */...|
|00001d60| 09 7d 0d 7d 0d 0d 73 65 | 6e 64 70 61 32 28 29 0d |.}.}..se|ndpa2().|
|00001d70| 7b 0d 09 61 73 63 69 69 | 73 65 6e 64 63 68 61 72 |{..ascii|sendchar|
|00001d80| 28 45 53 43 29 3b 0d 09 | 61 73 63 69 69 73 65 6e |(ESC);..|asciisen|
|00001d90| 64 63 68 61 72 28 27 2e | 27 29 3b 0d 0d 09 73 61 |dchar('.|');...sa|
|00001da0| 76 65 73 63 72 65 65 6e | 28 29 3b 0d 09 09 2f 2a |vescreen|();.../*|
|00001db0| 20 73 61 76 65 20 74 68 | 65 20 73 63 72 65 65 6e | save th|e screen|
|00001dc0| 20 62 65 66 6f 72 65 20 | 69 74 20 67 65 74 73 20 | before |it gets |
|00001dd0| 6f 76 65 72 77 72 69 74 | 74 65 6e 20 2a 2f 0d 0d |overwrit|ten */..|
|00001de0| 7d 0d 0d 73 65 6e 64 70 | 61 33 28 29 0d 7b 0d 09 |}..sendp|a3().{..|
|00001df0| 61 73 63 69 69 73 65 6e | 64 63 68 61 72 28 45 53 |asciisen|dchar(ES|
|00001e00| 43 29 3b 0d 09 61 73 63 | 69 69 73 65 6e 64 63 68 |C);..asc|iisendch|
|00001e10| 61 72 28 27 2f 27 29 3b | 0d 0d 09 73 61 76 65 73 |ar('/');|...saves|
|00001e20| 63 72 65 65 6e 28 29 3b | 0d 09 09 2f 2a 20 73 61 |creen();|.../* sa|
|00001e30| 76 65 20 74 68 65 20 73 | 63 72 65 65 6e 20 62 65 |ve the s|creen be|
|00001e40| 66 6f 72 65 20 69 74 20 | 67 65 74 73 20 6f 76 65 |fore it |gets ove|
|00001e50| 72 77 72 69 74 74 65 6e | 20 2a 2f 0d 0d 7d 0d 0d |rwritten| */..}..|
|00001e60| 73 65 6e 64 43 6c 65 61 | 72 28 29 0d 7b 0d 09 2f |sendClea|r().{../|
|00001e70| 2a 20 56 54 20 37 31 37 | 31 20 22 6b 65 79 70 61 |* VT 717|1 "keypa|
|00001e80| 64 20 45 6e 74 65 72 22 | 20 3f 20 2a 2f 0d 09 61 |d Enter"| ? */..a|
|00001e90| 73 63 69 69 73 65 6e 64 | 63 68 61 72 28 45 53 43 |sciisend|char(ESC|
|00001ea0| 29 3b 0d 09 61 73 63 69 | 69 73 65 6e 64 63 68 61 |);..asci|isendcha|
|00001eb0| 72 28 27 3f 27 29 3b 0d | 09 61 73 63 69 69 73 65 |r('?');.|.asciise|
|00001ec0| 6e 64 63 68 61 72 28 27 | 4d 27 29 3b 0d 0d 09 73 |ndchar('|M');...s|
|00001ed0| 61 76 65 73 63 72 65 65 | 6e 28 29 3b 0d 09 09 2f |avescree|n();.../|
|00001ee0| 2a 20 73 61 76 65 20 74 | 68 65 20 73 63 72 65 65 |* save t|he scree|
|00001ef0| 6e 20 62 65 66 6f 72 65 | 20 69 74 20 67 65 74 73 |n before| it gets|
|00001f00| 20 6f 76 65 72 77 72 69 | 74 74 65 6e 20 2a 2f 0d | overwri|tten */.|
|00001f10| 0d 7d 0d 0d 73 65 6e 64 | 49 6e 73 65 72 74 28 29 |.}..send|Insert()|
|00001f20| 0d 7b 0d 09 2f 2a 20 56 | 54 20 37 31 37 31 20 22 |.{../* V|T 7171 "|
|00001f30| 6b 65 79 70 61 64 20 2e | 22 20 2a 2f 0d 09 61 73 |keypad .|" */..as|
|00001f40| 63 69 69 73 65 6e 64 63 | 68 61 72 28 45 53 43 29 |ciisendc|har(ESC)|
|00001f50| 3b 0d 09 61 73 63 69 69 | 73 65 6e 64 63 68 61 72 |;..ascii|sendchar|
|00001f60| 28 27 3f 27 29 3b 0d 09 | 61 73 63 69 69 73 65 6e |('?');..|asciisen|
|00001f70| 64 63 68 61 72 28 27 6e | 27 29 3b 0d 7d 0d 0d 2f |dchar('n|');.}../|
|00001f80| 2a 20 74 6f 67 67 6c 65 | 20 74 68 65 20 73 77 69 |* toggle| the swi|
|00001f90| 74 63 68 65 73 2c 20 63 | 6f 6e 74 72 6f 6c 20 68 |tches, c|ontrol h|
|00001fa0| 69 67 68 6c 69 67 68 74 | 69 6e 67 2c 20 61 6e 64 |ighlight|ing, and|
|00001fb0| 20 73 65 6e 64 20 69 6e | 73 65 72 74 20 2a 2f 0d | send in|sert */.|
|00001fc0| 0d 64 6f 69 6e 73 65 72 | 74 28 29 0d 7b 0d 09 73 |.doinser|t().{..s|
|00001fd0| 65 6e 64 49 6e 73 65 72 | 74 28 29 3b 0d 09 69 66 |endInser|t();..if|
|00001fe0| 20 28 65 6d 64 70 2d 3e | 65 76 65 6e 74 5f 72 65 | (emdp->|event_re|
|00001ff0| 67 20 26 20 49 4e 53 45 | 52 54 29 20 7b 0d 09 09 |g & INSE|RT) {...|
|00002000| 63 6c 72 69 6e 73 65 72 | 74 28 29 3b 0d 09 09 65 |clrinser|t();...e|
|00002010| 6d 64 70 2d 3e 65 76 65 | 6e 74 5f 72 65 67 20 26 |mdp->eve|nt_reg &|
|00002020| 3d 20 7e 49 4e 53 45 52 | 54 3b 0d 09 7d 0d 09 65 |= ~INSER|T;..}..e|
|00002030| 6c 73 65 20 7b 0d 09 09 | 73 68 6f 77 69 6e 73 65 |lse {...|showinse|
|00002040| 72 74 28 29 3b 0d 09 09 | 65 6d 64 70 2d 3e 65 76 |rt();...|emdp->ev|
|00002050| 65 6e 74 5f 72 65 67 20 | 7c 3d 20 49 4e 53 45 52 |ent_reg ||= INSER|
|00002060| 54 3b 0d 09 7d 0d 7d 0d | 0d 0d 73 65 6e 64 45 6e |T;..}.}.|..sendEn|
|00002070| 74 65 72 28 29 0d 7b 0d | 09 61 73 63 69 69 73 65 |ter().{.|.asciise|
|00002080| 6e 64 63 68 61 72 28 43 | 52 29 3b 0d 0d 09 73 61 |ndchar(C|R);...sa|
|00002090| 76 65 73 63 72 65 65 6e | 28 29 3b 0d 09 09 2f 2a |vescreen|();.../*|
|000020a0| 20 73 61 76 65 20 74 68 | 65 20 73 63 72 65 65 6e | save th|e screen|
|000020b0| 20 62 65 66 6f 72 65 20 | 69 74 20 67 65 74 73 20 | before |it gets |
|000020c0| 6f 76 65 72 77 72 69 74 | 74 65 6e 20 2a 2f 0d 0d |overwrit|ten */..|
|000020d0| 7d 0d 0d 73 65 6e 64 4e | 65 77 6c 69 6e 65 28 29 |}..sendN|ewline()|
|000020e0| 0d 7b 0d 09 61 73 63 69 | 69 73 65 6e 64 63 68 61 |.{..asci|isendcha|
|000020f0| 72 28 4c 46 29 3b 0d 7d | 0d 0d 73 65 6e 64 42 53 |r(LF);.}|..sendBS|
|00002100| 44 45 4c 28 29 0d 7b 0d | 09 73 65 6e 64 4c 65 66 |DEL().{.|.sendLef|
|00002110| 74 28 31 29 3b 0d 09 61 | 73 63 69 69 73 65 6e 64 |t(1);..a|sciisend|
|00002120| 63 68 61 72 28 44 45 4c | 45 54 45 29 3b 0d 7d 0d |char(DEL|ETE);.}.|
|00002130| 0d 73 65 6e 64 42 53 62 | 6c 61 6e 6b 28 29 0d 7b |.sendBSb|lank().{|
|00002140| 0d 09 73 65 6e 64 4c 65 | 66 74 28 31 29 3b 0d 09 |..sendLe|ft(1);..|
|00002150| 61 73 63 69 69 73 65 6e | 64 63 68 61 72 28 27 20 |asciisen|dchar(' |
|00002160| 27 29 3b 0d 09 73 65 6e | 64 4c 65 66 74 28 31 29 |');..sen|dLeft(1)|
|00002170| 3b 0d 7d 0d 0d 73 65 6e | 64 54 61 62 28 29 0d 7b |;.}..sen|dTab().{|
|00002180| 0d 09 61 73 63 69 69 73 | 65 6e 64 63 68 61 72 28 |..asciis|endchar(|
|00002190| 54 41 42 29 3b 0d 7d 0d | 0d 73 65 6e 64 42 61 63 |TAB);.}.|.sendBac|
|000021a0| 6b 54 61 62 28 29 0d 7b | 0d 09 61 73 63 69 69 73 |kTab().{|..asciis|
|000021b0| 65 6e 64 63 68 61 72 28 | 45 53 43 29 3b 0d 09 61 |endchar(|ESC);..a|
|000021c0| 73 63 69 69 73 65 6e 64 | 63 68 61 72 28 54 41 42 |sciisend|char(TAB|
|000021d0| 29 3b 0d 7d 0d 0d 73 65 | 6e 64 44 45 4c 28 29 0d |);.}..se|ndDEL().|
|000021e0| 7b 0d 09 61 73 63 69 69 | 73 65 6e 64 63 68 61 72 |{..ascii|sendchar|
|000021f0| 28 44 45 4c 45 54 45 29 | 3b 0d 7d 0d 0d 0d 2f 2a |(DELETE)|;.}.../*|
|00002200| 20 74 68 65 20 76 74 61 | 6c 74 63 75 72 73 6f 72 | the vta|ltcursor|
|00002210| 20 6d 6f 64 65 20 69 73 | 20 6f 6e 6c 79 20 65 66 | mode is| only ef|
|00002220| 66 65 63 74 69 76 65 20 | 77 68 65 6e 20 69 6e 20 |fective |when in |
|00002230| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 6b 65 79 70 |applicat|ion keyp|
|00002240| 61 64 20 6d 6f 64 65 20 | 2a 2f 0d 0d 73 65 6e 64 |ad mode |*/..send|
|00002250| 55 70 28 63 6f 75 6e 74 | 29 0d 69 6e 74 20 63 6f |Up(count|).int co|
|00002260| 75 6e 74 3b 0d 7b 0d 09 | 69 66 20 28 6d 6f 64 65 |unt;.{..|if (mode|
|00002270| 20 3d 3d 20 56 54 31 30 | 30 4d 4f 44 45 29 20 7b | == VT10|0MODE) {|
|00002280| 0d 09 09 69 6e 74 20 61 | 70 70 6b 65 79 70 61 64 |...int a|ppkeypad|
|00002290| 6d 6f 64 65 3b 0d 09 09 | 69 6e 74 20 61 6c 74 63 |mode;...|int altc|
|000022a0| 75 72 73 6f 72 3b 0d 0d | 09 09 2f 2a 20 61 70 70 |ursor;..|../* app|
|000022b0| 6b 65 79 70 61 64 6d 6f | 64 65 20 3d 20 65 6d 64 |keypadmo|de = emd|
|000022c0| 70 2d 3e 76 74 61 6c 74 | 6b 65 79 70 61 64 3b 20 |p->vtalt|keypad; |
|000022d0| 69 6e 63 6f 72 72 65 63 | 74 2c 20 63 68 61 6e 67 |incorrec|t, chang|
|000022e0| 65 64 20 74 68 72 6f 75 | 67 68 6f 75 74 20 2e 2e |ed throu|ghout ..|
|000022f0| 2e 20 20 2a 2f 0d 09 09 | 61 70 70 6b 65 79 70 61 |. */...|appkeypa|
|00002300| 64 6d 6f 64 65 20 3d 20 | 54 52 55 45 3b 0d 09 09 |dmode = |TRUE;...|
|00002310| 61 6c 74 63 75 72 73 6f | 72 20 3d 20 65 6d 64 70 |altcurso|r = emdp|
|00002320| 2d 3e 76 74 61 6c 74 63 | 75 72 73 6f 72 3b 0d 09 |->vtaltc|ursor;..|
|00002330| 09 77 68 69 6c 65 20 28 | 63 6f 75 6e 74 2d 2d 29 |.while (|count--)|
|00002340| 20 7b 0d 09 09 09 61 73 | 63 69 69 73 65 6e 64 63 | {....as|ciisendc|
|00002350| 68 61 72 28 45 53 43 29 | 3b 0d 09 09 09 61 73 63 |har(ESC)|;....asc|
|00002360| 69 69 73 65 6e 64 63 68 | 61 72 28 61 70 70 6b 65 |iisendch|ar(appke|
|00002370| 79 70 61 64 6d 6f 64 65 | 20 3f 20 61 6c 74 63 75 |ypadmode| ? altcu|
|00002380| 72 73 6f 72 20 3a 20 27 | 5b 27 29 3b 0d 09 09 09 |rsor : '|[');....|
|00002390| 61 73 63 69 69 73 65 6e | 64 63 68 61 72 28 27 41 |asciisen|dchar('A|
|000023a0| 27 29 3b 0d 09 09 7d 0d | 09 7d 0d 09 65 6c 73 65 |');...}.|.}..else|
|000023b0| 20 7b 0d 09 09 77 68 69 | 6c 65 20 28 63 6f 75 6e | {...whi|le (coun|
|000023c0| 74 2d 2d 29 20 7b 0d 09 | 09 09 61 73 63 69 69 73 |t--) {..|..asciis|
|000023d0| 65 6e 64 63 68 61 72 28 | 45 53 43 29 3b 0d 09 09 |endchar(|ESC);...|
|000023e0| 09 61 73 63 69 69 73 65 | 6e 64 63 68 61 72 28 27 |.asciise|ndchar('|
|000023f0| 41 27 29 3b 0d 09 09 7d | 0d 09 7d 0d 7d 0d 0d 73 |A');...}|..}.}..s|
|00002400| 65 6e 64 44 6f 77 6e 28 | 63 6f 75 6e 74 29 0d 69 |endDown(|count).i|
|00002410| 6e 74 20 63 6f 75 6e 74 | 3b 0d 7b 0d 09 69 66 20 |nt count|;.{..if |
|00002420| 28 6d 6f 64 65 20 3d 3d | 20 56 54 31 30 30 4d 4f |(mode ==| VT100MO|
|00002430| 44 45 29 20 7b 0d 09 09 | 69 6e 74 20 61 70 70 6b |DE) {...|int appk|
|00002440| 65 79 70 61 64 6d 6f 64 | 65 3b 0d 09 09 69 6e 74 |eypadmod|e;...int|
|00002450| 20 61 6c 74 63 75 72 73 | 6f 72 3b 0d 0d 09 09 61 | altcurs|or;....a|
|00002460| 70 70 6b 65 79 70 61 64 | 6d 6f 64 65 20 3d 20 54 |ppkeypad|mode = T|
|00002470| 52 55 45 3b 0d 09 09 61 | 6c 74 63 75 72 73 6f 72 |RUE;...a|ltcursor|
|00002480| 20 3d 20 65 6d 64 70 2d | 3e 76 74 61 6c 74 63 75 | = emdp-|>vtaltcu|
|00002490| 72 73 6f 72 3b 0d 09 09 | 77 68 69 6c 65 20 28 63 |rsor;...|while (c|
|000024a0| 6f 75 6e 74 2d 2d 29 20 | 7b 0d 09 09 09 61 73 63 |ount--) |{....asc|
|000024b0| 69 69 73 65 6e 64 63 68 | 61 72 28 45 53 43 29 3b |iisendch|ar(ESC);|
|000024c0| 0d 09 09 09 61 73 63 69 | 69 73 65 6e 64 63 68 61 |....asci|isendcha|
|000024d0| 72 28 61 70 70 6b 65 79 | 70 61 64 6d 6f 64 65 20 |r(appkey|padmode |
|000024e0| 3f 20 61 6c 74 63 75 72 | 73 6f 72 20 3a 20 27 5b |? altcur|sor : '[|
|000024f0| 27 29 3b 0d 09 09 09 61 | 73 63 69 69 73 65 6e 64 |');....a|sciisend|
|00002500| 63 68 61 72 28 27 42 27 | 29 3b 0d 09 09 7d 0d 09 |char('B'|);...}..|
|00002510| 7d 0d 09 65 6c 73 65 20 | 7b 0d 09 09 77 68 69 6c |}..else |{...whil|
|00002520| 65 20 28 63 6f 75 6e 74 | 2d 2d 29 20 7b 0d 09 09 |e (count|--) {...|
|00002530| 09 61 73 63 69 69 73 65 | 6e 64 63 68 61 72 28 45 |.asciise|ndchar(E|
|00002540| 53 43 29 3b 0d 09 09 09 | 61 73 63 69 69 73 65 6e |SC);....|asciisen|
|00002550| 64 63 68 61 72 28 27 42 | 27 29 3b 0d 09 09 7d 0d |dchar('B|');...}.|
|00002560| 09 7d 0d 7d 0d 0d 73 65 | 6e 64 4c 65 66 74 28 63 |.}.}..se|ndLeft(c|
|00002570| 6f 75 6e 74 29 0d 69 6e | 74 20 63 6f 75 6e 74 3b |ount).in|t count;|
|00002580| 0d 7b 0d 09 69 66 20 28 | 6d 6f 64 65 20 3d 3d 20 |.{..if (|mode == |
|00002590| 56 54 31 30 30 4d 4f 44 | 45 29 20 7b 0d 09 09 69 |VT100MOD|E) {...i|
|000025a0| 6e 74 20 61 70 70 6b 65 | 79 70 61 64 6d 6f 64 65 |nt appke|ypadmode|
|000025b0| 3b 0d 09 09 69 6e 74 20 | 61 6c 74 63 75 72 73 6f |;...int |altcurso|
|000025c0| 72 3b 0d 0d 09 09 61 70 | 70 6b 65 79 70 61 64 6d |r;....ap|pkeypadm|
|000025d0| 6f 64 65 20 3d 20 54 52 | 55 45 3b 0d 09 09 61 6c |ode = TR|UE;...al|
|000025e0| 74 63 75 72 73 6f 72 20 | 3d 20 65 6d 64 70 2d 3e |tcursor |= emdp->|
|000025f0| 76 74 61 6c 74 63 75 72 | 73 6f 72 3b 0d 09 09 77 |vtaltcur|sor;...w|
|00002600| 68 69 6c 65 20 28 63 6f | 75 6e 74 2d 2d 29 20 7b |hile (co|unt--) {|
|00002610| 0d 09 09 09 61 73 63 69 | 69 73 65 6e 64 63 68 61 |....asci|isendcha|
|00002620| 72 28 45 53 43 29 3b 0d | 09 09 09 61 73 63 69 69 |r(ESC);.|...ascii|
|00002630| 73 65 6e 64 63 68 61 72 | 28 61 70 70 6b 65 79 70 |sendchar|(appkeyp|
|00002640| 61 64 6d 6f 64 65 20 3f | 20 61 6c 74 63 75 72 73 |admode ?| altcurs|
|00002650| 6f 72 20 3a 20 27 5b 27 | 29 3b 0d 09 09 09 61 73 |or : '['|);....as|
|00002660| 63 69 69 73 65 6e 64 63 | 68 61 72 28 27 44 27 29 |ciisendc|har('D')|
|00002670| 3b 0d 09 09 7d 0d 09 7d | 0d 09 65 6c 73 65 20 7b |;...}..}|..else {|
|00002680| 0d 09 09 77 68 69 6c 65 | 20 28 63 6f 75 6e 74 2d |...while| (count-|
|00002690| 2d 29 20 7b 0d 09 09 09 | 61 73 63 69 69 73 65 6e |-) {....|asciisen|
|000026a0| 64 63 68 61 72 28 45 53 | 43 29 3b 0d 09 09 09 61 |dchar(ES|C);....a|
|000026b0| 73 63 69 69 73 65 6e 64 | 63 68 61 72 28 27 44 27 |sciisend|char('D'|
|000026c0| 29 3b 0d 09 09 7d 0d 09 | 7d 0d 7d 0d 0d 73 65 6e |);...}..|}.}..sen|
|000026d0| 64 52 69 67 68 74 28 63 | 6f 75 6e 74 29 0d 69 6e |dRight(c|ount).in|
|000026e0| 74 20 63 6f 75 6e 74 3b | 0d 7b 0d 09 69 66 20 28 |t count;|.{..if (|
|000026f0| 6d 6f 64 65 20 3d 3d 20 | 56 54 31 30 30 4d 4f 44 |mode == |VT100MOD|
|00002700| 45 29 20 7b 0d 09 09 69 | 6e 74 20 61 70 70 6b 65 |E) {...i|nt appke|
|00002710| 79 70 61 64 6d 6f 64 65 | 3b 0d 09 09 69 6e 74 20 |ypadmode|;...int |
|00002720| 61 6c 74 63 75 72 73 6f | 72 3b 0d 0d 09 09 61 70 |altcurso|r;....ap|
|00002730| 70 6b 65 79 70 61 64 6d | 6f 64 65 20 3d 20 54 52 |pkeypadm|ode = TR|
|00002740| 55 45 3b 0d 09 09 61 6c | 74 63 75 72 73 6f 72 20 |UE;...al|tcursor |
|00002750| 3d 20 65 6d 64 70 2d 3e | 76 74 61 6c 74 63 75 72 |= emdp->|vtaltcur|
|00002760| 73 6f 72 3b 0d 09 09 77 | 68 69 6c 65 20 28 63 6f |sor;...w|hile (co|
|00002770| 75 6e 74 2d 2d 29 20 7b | 0d 09 09 09 61 73 63 69 |unt--) {|....asci|
|00002780| 69 73 65 6e 64 63 68 61 | 72 28 45 53 43 29 3b 0d |isendcha|r(ESC);.|
|00002790| 09 09 09 61 73 63 69 69 | 73 65 6e 64 63 68 61 72 |...ascii|sendchar|
|000027a0| 28 61 70 70 6b 65 79 70 | 61 64 6d 6f 64 65 20 3f |(appkeyp|admode ?|
|000027b0| 20 61 6c 74 63 75 72 73 | 6f 72 20 3a 20 27 5b 27 | altcurs|or : '['|
|000027c0| 29 3b 0d 09 09 09 61 73 | 63 69 69 73 65 6e 64 63 |);....as|ciisendc|
|000027d0| 68 61 72 28 27 43 27 29 | 3b 0d 09 09 7d 0d 09 7d |har('C')|;...}..}|
|000027e0| 0d 09 65 6c 73 65 20 7b | 0d 09 09 77 68 69 6c 65 |..else {|...while|
|000027f0| 20 28 63 6f 75 6e 74 2d | 2d 29 20 7b 0d 09 09 09 | (count-|-) {....|
|00002800| 61 73 63 69 69 73 65 6e | 64 63 68 61 72 28 45 53 |asciisen|dchar(ES|
|00002810| 43 29 3b 0d 09 09 09 61 | 73 63 69 69 73 65 6e 64 |C);....a|sciisend|
|00002820| 63 68 61 72 28 27 43 27 | 29 3b 0d 09 09 7d 0d 09 |char('C'|);...}..|
|00002830| 7d 0d 7d 0d 0d 73 65 6e | 64 48 6f 6d 65 28 29 0d |}.}..sen|dHome().|
|00002840| 7b 0d 09 61 73 63 69 69 | 73 65 6e 64 63 68 61 72 |{..ascii|sendchar|
|00002850| 28 42 53 29 3b 0d 7d 0d | 0d 73 65 6e 64 45 72 49 |(BS);.}.|.sendErI|
|00002860| 6e 70 75 74 28 29 0d 7b | 0d 09 61 73 63 69 69 73 |nput().{|..asciis|
|00002870| 65 6e 64 63 68 61 72 28 | 45 53 43 29 3b 0d 09 61 |endchar(|ESC);..a|
|00002880| 73 63 69 69 73 65 6e 64 | 63 68 61 72 28 27 3f 27 |sciisend|char('?'|
|00002890| 29 3b 0d 09 61 73 63 69 | 69 73 65 6e 64 63 68 61 |);..asci|isendcha|
|000028a0| 72 28 44 45 4c 45 54 45 | 29 3b 0d 7d 0d 0d 73 65 |r(DELETE|);.}..se|
|000028b0| 6e 64 45 72 45 4f 46 28 | 29 0d 7b 0d 09 61 73 63 |ndErEOF(|).{..asc|
|000028c0| 69 69 73 65 6e 64 63 68 | 61 72 28 45 53 43 29 3b |iisendch|ar(ESC);|
|000028d0| 0d 09 61 73 63 69 69 73 | 65 6e 64 63 68 61 72 28 |..asciis|endchar(|
|000028e0| 44 45 4c 45 54 45 29 3b | 0d 7d 0d 0d 73 65 6e 64 |DELETE);|.}..send|
|000028f0| 52 65 73 65 74 28 29 0d | 7b 0d 09 69 66 20 28 65 |Reset().|{..if (e|
|00002900| 6d 64 70 2d 3e 74 65 72 | 6d 74 79 70 65 20 21 3d |mdp->ter|mtype !=|
|00002910| 20 54 45 52 4d 5f 33 32 | 37 30 29 0d 09 09 61 73 | TERM_32|70)...as|
|00002920| 63 69 69 73 65 6e 64 63 | 68 61 72 28 43 54 4c 47 |ciisendc|har(CTLG|
|00002930| 29 3b 09 2f 2a 20 5e 47 | 20 2a 2f 0d 0d 09 73 61 |);./* ^G| */...sa|
|00002940| 76 65 73 63 72 65 65 6e | 28 29 3b 0d 09 09 2f 2a |vescreen|();.../*|
|00002950| 20 73 61 76 65 20 74 68 | 65 20 73 63 72 65 65 6e | save th|e screen|
|00002960| 20 62 65 66 6f 72 65 20 | 69 74 20 67 65 74 73 20 | before |it gets |
|00002970| 6f 76 65 72 77 72 69 74 | 74 65 6e 20 2a 2f 0d 0d |overwrit|ten */..|
|00002980| 09 64 6f 72 65 73 65 74 | 28 29 3b 0d 7d 0d 0d 0d |.doreset|();.}...|
|00002990| 2f 2a 20 6d 6f 76 65 20 | 76 69 20 63 75 72 73 6f |/* move |vi curso|
|000029a0| 72 20 74 6f 20 61 20 76 | 65 72 74 69 63 61 6c 20 |r to a v|ertical |
|000029b0| 70 6f 73 69 74 69 6f 6e | 20 79 6c 6f 63 20 2a 2f |position| yloc */|
|000029c0| 0d 0d 73 65 6e 64 76 76 | 69 6d 6f 76 65 28 79 6c |..sendvv|imove(yl|
|000029d0| 6f 63 29 0d 69 6e 74 20 | 79 6c 6f 63 3b 0d 7b 0d |oc).int |yloc;.{.|
|000029e0| 09 63 68 61 72 20 74 65 | 6d 70 5b 31 30 5d 3b 0d |.char te|mp[10];.|
|000029f0| 09 72 65 67 69 73 74 65 | 72 20 63 68 61 72 20 2a |.registe|r char *|
|00002a00| 20 74 65 6d 70 70 20 3d | 20 74 65 6d 70 3b 0d 0d | tempp =| temp;..|
|00002a10| 09 73 70 72 69 6e 74 66 | 28 74 65 6d 70 70 2c 20 |.sprintf|(tempp, |
|00002a20| 22 25 64 22 2c 20 79 6c | 6f 63 20 2b 20 31 29 3b |"%d", yl|oc + 1);|
|00002a30| 0d 09 77 68 69 6c 65 20 | 28 2a 74 65 6d 70 70 29 |..while |(*tempp)|
|00002a40| 20 7b 0d 09 09 61 73 63 | 69 69 73 65 6e 64 63 68 | {...asc|iisendch|
|00002a50| 61 72 28 2a 74 65 6d 70 | 70 2b 2b 29 3b 0d 09 7d |ar(*temp|p++);..}|
|00002a60| 0d 09 61 73 63 69 69 73 | 65 6e 64 63 68 61 72 28 |..asciis|endchar(|
|00002a70| 27 48 27 29 3b 0d 09 09 | 2f 2a 20 76 69 20 63 6f |'H');...|/* vi co|
|00002a80| 6d 6d 61 6e 64 20 74 6f | 20 6d 6f 76 65 20 6e 20 |mmand to| move n |
|00002a90| 6c 69 6e 65 73 20 66 72 | 6f 6d 20 74 6f 70 20 6f |lines fr|om top o|
|00002aa0| 66 20 73 63 72 65 65 6e | 20 2a 2f 0d 7d 0d 0d 0d |f screen| */.}...|
|00002ab0| 2f 2a 20 6d 6f 76 65 20 | 76 69 20 63 75 72 73 6f |/* move |vi curso|
|00002ac0| 72 20 74 6f 20 61 20 68 | 6f 72 69 7a 6f 6e 74 61 |r to a h|orizonta|
|00002ad0| 6c 20 70 6f 73 69 74 69 | 6f 6e 20 78 6c 6f 63 20 |l positi|on xloc |
|00002ae0| 2a 2f 0d 0d 73 65 6e 64 | 68 76 69 6d 6f 76 65 28 |*/..send|hvimove(|
|00002af0| 78 6c 6f 63 29 0d 69 6e | 74 20 78 6c 6f 63 3b 0d |xloc).in|t xloc;.|
|00002b00| 7b 0d 09 63 68 61 72 20 | 74 65 6d 70 5b 31 30 5d |{..char |temp[10]|
|00002b10| 3b 0d 09 72 65 67 69 73 | 74 65 72 20 63 68 61 72 |;..regis|ter char|
|00002b20| 20 2a 20 74 65 6d 70 70 | 20 3d 20 74 65 6d 70 3b | * tempp| = temp;|
|00002b30| 0d 0d 09 73 70 72 69 6e | 74 66 28 74 65 6d 70 70 |...sprin|tf(tempp|
|00002b40| 2c 20 22 25 64 22 2c 20 | 78 6c 6f 63 20 2b 20 31 |, "%d", |xloc + 1|
|00002b50| 29 3b 0d 09 77 68 69 6c | 65 20 28 2a 74 65 6d 70 |);..whil|e (*temp|
|00002b60| 70 29 20 7b 0d 09 09 61 | 73 63 69 69 73 65 6e 64 |p) {...a|sciisend|
|00002b70| 63 68 61 72 28 2a 74 65 | 6d 70 70 2b 2b 29 3b 0d |char(*te|mpp++);.|
|00002b80| 09 7d 0d 09 61 73 63 69 | 69 73 65 6e 64 63 68 61 |.}..asci|isendcha|
|00002b90| 72 28 27 7c 27 29 3b 0d | 09 09 2f 2a 20 76 69 20 |r('|');.|../* vi |
|00002ba0| 63 6f 6d 6d 61 6e 64 20 | 74 6f 20 6d 6f 76 65 20 |command |to move |
|00002bb0| 6e 20 6c 69 6e 65 73 20 | 66 72 6f 6d 20 74 6f 70 |n lines |from top|
|00002bc0| 20 6f 66 20 73 63 72 65 | 65 6e 20 2a 2f 0d 7d 0d | of scre|en */.}.|
|00002bd0| 0d 0d 2f 2a 20 6d 6f 76 | 65 20 65 6d 61 63 73 20 |../* mov|e emacs |
|00002be0| 63 75 72 73 6f 72 20 74 | 6f 20 61 20 76 65 72 74 |cursor t|o a vert|
|00002bf0| 69 63 61 6c 20 70 6f 73 | 69 74 69 6f 6e 20 79 6c |ical pos|ition yl|
|00002c00| 6f 63 20 2a 2f 0d 0d 73 | 65 6e 64 76 65 6d 61 63 |oc */..s|endvemac|
|00002c10| 73 6d 6f 76 65 28 79 6c | 6f 63 29 0d 69 6e 74 20 |smove(yl|oc).int |
|00002c20| 79 6c 6f 63 3b 0d 7b 0d | 09 63 68 61 72 20 74 65 |yloc;.{.|.char te|
|00002c30| 6d 70 5b 31 30 5d 3b 0d | 09 72 65 67 69 73 74 65 |mp[10];.|.registe|
|00002c40| 72 20 63 68 61 72 20 2a | 20 74 65 6d 70 70 20 3d |r char *| tempp =|
|00002c50| 20 74 65 6d 70 3b 0d 0d | 09 73 70 72 69 6e 74 66 | temp;..|.sprintf|
|00002c60| 28 74 65 6d 70 70 2c 20 | 22 25 64 22 2c 20 79 6c |(tempp, |"%d", yl|
|00002c70| 6f 63 29 3b 0d 09 77 68 | 69 6c 65 20 28 2a 74 65 |oc);..wh|ile (*te|
|00002c80| 6d 70 70 29 20 7b 0d 09 | 09 61 73 63 69 69 73 65 |mpp) {..|.asciise|
|00002c90| 6e 64 63 68 61 72 28 2a | 74 65 6d 70 70 2b 2b 29 |ndchar(*|tempp++)|
|00002ca0| 3b 0d 09 7d 0d 2f 2a 09 | 61 73 63 69 69 73 65 6e |;..}./*.|asciisen|
|00002cb0| 64 63 68 61 72 28 27 48 | 27 29 3b 20 2a 2f 0d 09 |dchar('H|'); */..|
|00002cc0| 09 2f 2a 20 65 6d 61 63 | 73 20 63 6f 6d 6d 61 6e |./* emac|s comman|
|00002cd0| 64 20 74 6f 20 6d 6f 76 | 65 20 6e 20 6c 69 6e 65 |d to mov|e n line|
|00002ce0| 73 20 66 72 6f 6d 20 74 | 6f 70 20 6f 66 20 73 63 |s from t|op of sc|
|00002cf0| 72 65 65 6e 20 2a 2f 0d | 7d 0d 0d 0d 2f 2a 20 6d |reen */.|}.../* m|
|00002d00| 6f 76 65 20 65 6d 61 63 | 73 20 63 75 72 73 6f 72 |ove emac|s cursor|
|00002d10| 20 74 6f 20 61 20 68 6f | 72 69 7a 6f 6e 74 61 6c | to a ho|rizontal|
|00002d20| 20 70 6f 73 69 74 69 6f | 6e 20 78 6c 6f 63 20 2a | positio|n xloc *|
|00002d30| 2f 0d 0d 73 65 6e 64 68 | 65 6d 61 63 73 6d 6f 76 |/..sendh|emacsmov|
|00002d40| 65 28 78 6c 6f 63 29 0d | 69 6e 74 20 78 6c 6f 63 |e(xloc).|int xloc|
|00002d50| 3b 0d 7b 0d 09 63 68 61 | 72 20 74 65 6d 70 5b 31 |;.{..cha|r temp[1|
|00002d60| 30 5d 3b 0d 09 72 65 67 | 69 73 74 65 72 20 63 68 |0];..reg|ister ch|
|00002d70| 61 72 20 2a 20 74 65 6d | 70 70 20 3d 20 74 65 6d |ar * tem|pp = tem|
|00002d80| 70 3b 0d 0d 09 73 70 72 | 69 6e 74 66 28 74 65 6d |p;...spr|intf(tem|
|00002d90| 70 70 2c 20 22 25 64 22 | 2c 20 78 6c 6f 63 29 3b |pp, "%d"|, xloc);|
|00002da0| 0d 09 77 68 69 6c 65 20 | 28 2a 74 65 6d 70 70 29 |..while |(*tempp)|
|00002db0| 20 7b 0d 09 09 61 73 63 | 69 69 73 65 6e 64 63 68 | {...asc|iisendch|
|00002dc0| 61 72 28 2a 74 65 6d 70 | 70 2b 2b 29 3b 0d 09 7d |ar(*temp|p++);..}|
|00002dd0| 0d 2f 2a 09 61 73 63 69 | 69 73 65 6e 64 63 68 61 |./*.asci|isendcha|
|00002de0| 72 28 27 7c 27 29 3b 20 | 2a 2f 0d 09 09 2f 2a 20 |r('|'); |*/.../* |
|00002df0| 65 6d 61 63 73 20 63 6f | 6d 6d 61 6e 64 20 74 6f |emacs co|mmand to|
|00002e00| 20 6d 6f 76 65 20 6e 20 | 6c 69 6e 65 73 20 66 72 | move n |lines fr|
|00002e10| 6f 6d 20 74 6f 70 20 6f | 66 20 73 63 72 65 65 6e |om top o|f screen|
|00002e20| 20 2a 2f 0d 7d 0d 0d 0d | 2f 2a 20 54 65 6c 6e 65 | */.}...|/* Telne|
|00002e30| 74 20 73 65 6e 64 63 68 | 61 72 3a 20 70 75 74 20 |t sendch|ar: put |
|00002e40| 6f 75 74 20 61 20 63 68 | 61 72 61 63 74 65 72 20 |out a ch|aracter |
|00002e50| 54 4f 44 4f 20 6c 6f 63 | 61 6c 20 65 63 68 6f 20 |TODO loc|al echo |
|00002e60| 6d 6f 64 65 20 6e 6f 74 | 20 68 65 61 6c 74 68 79 |mode not| healthy|
|00002e70| 3b 20 73 68 6f 75 6c 64 | 20 62 75 66 66 65 72 20 |; should| buffer |
|00002e80| 6c 69 6e 65 0d 09 74 6f | 20 70 72 65 73 65 72 76 |line..to| preserv|
|00002e90| 65 20 57 59 53 49 57 59 | 47 20 2a 2f 0d 0d 61 73 |e WYSIWY|G */..as|
|00002ea0| 63 69 69 73 65 6e 64 63 | 68 61 72 28 73 63 68 61 |ciisendc|har(scha|
|00002eb0| 72 29 0d 75 6e 73 69 67 | 6e 65 64 20 63 68 61 72 |r).unsig|ned char|
|00002ec0| 20 73 63 68 61 72 3b 0d | 7b 0d 09 69 66 20 28 21 | schar;.|{..if (!|
|00002ed0| 65 6d 64 70 2d 3e 63 6f | 6e 6e 6f 70 65 6e 29 0d |emdp->co|nnopen).|
|00002ee0| 09 09 72 65 74 75 72 6e | 28 2d 31 29 3b 0d 0d 09 |..return|(-1);...|
|00002ef0| 69 66 20 28 65 6d 64 70 | 2d 3e 65 76 65 6e 74 5f |if (emdp|->event_|
|00002f00| 72 65 67 20 26 20 54 46 | 54 50 5f 4f 4e 29 0d 09 |reg & TF|TP_ON)..|
|00002f10| 09 2f 2a 20 69 66 20 6e | 6f 74 20 61 62 6f 72 74 |./* if n|ot abort|
|00002f20| 20 63 68 61 72 2c 20 64 | 6f 6e 27 74 20 73 65 6e | char, d|on't sen|
|00002f30| 64 20 61 6e 79 74 68 69 | 6e 67 20 2a 2f 0d 09 09 |d anythi|ng */...|
|00002f40| 72 65 74 75 72 6e 28 2d | 31 29 3b 0d 09 09 0d 09 |return(-|1);.....|
|00002f50| 69 66 20 28 65 6d 64 70 | 2d 3e 75 63 62 2e 75 5f |if (emdp|->ucb.u_|
|00002f60| 73 65 6e 64 6d 20 3d 3d | 20 45 56 45 52 59 43 29 |sendm ==| EVERYC)|
|00002f70| 20 7b 0d 09 09 69 66 20 | 28 28 2a 65 6d 64 70 2d | {...if |((*emdp-|
|00002f80| 3e 70 75 74 63 68 61 72 | 29 28 73 63 68 61 72 29 |>putchar|)(schar)|
|00002f90| 29 20 7b 0d 09 09 09 72 | 65 74 75 72 6e 28 2d 31 |) {....r|eturn(-1|
|00002fa0| 29 3b 0d 09 09 7d 0d 09 | 09 61 73 63 69 69 66 6c |);...}..|.asciifl|
|00002fb0| 75 73 68 20 3d 20 54 52 | 55 45 3b 0d 09 7d 0d 09 |ush = TR|UE;..}..|
|00002fc0| 65 6c 73 65 20 7b 0d 09 | 09 69 66 20 28 65 6d 64 |else {..|.if (emd|
|00002fd0| 70 2d 3e 76 74 6e 65 77 | 6c 69 6e 65 29 20 7b 0d |p->vtnew|line) {.|
|00002fe0| 09 09 09 2f 2a 20 4c 46 | 20 77 69 6c 6c 20 62 65 |.../* LF| will be|
|00002ff0| 20 74 68 65 20 6c 61 73 | 74 20 63 68 61 72 20 69 | the las|t char i|
|00003000| 6e 20 74 68 65 20 43 52 | 2d 4c 46 20 6f 75 74 70 |n the CR|-LF outp|
|00003010| 75 74 20 70 61 69 72 20 | 2a 2f 0d 09 09 09 69 66 |ut pair |*/....if|
|00003020| 20 28 73 63 68 61 72 20 | 3d 3d 20 4c 46 29 20 7b | (schar |== LF) {|
|00003030| 0d 09 09 09 09 61 73 63 | 69 69 66 6c 75 73 68 20 |.....asc|iiflush |
|00003040| 3d 20 54 52 55 45 3b 0d | 09 09 09 7d 0d 09 09 7d |= TRUE;.|...}...}|
|00003050| 0d 09 09 65 6c 73 65 20 | 69 66 20 28 73 63 68 61 |...else |if (scha|
|00003060| 72 20 3d 3d 20 43 52 29 | 20 7b 0d 09 09 09 2f 2a |r == CR)| {..../*|
|00003070| 20 65 6e 64 20 6f 66 20 | 6c 69 6e 65 2c 20 73 65 | end of |line, se|
|00003080| 6e 64 20 2a 2f 0d 09 09 | 09 61 73 63 69 69 66 6c |nd */...|.asciifl|
|00003090| 75 73 68 20 3d 20 54 52 | 55 45 3b 0d 09 09 7d 0d |ush = TR|UE;...}.|
|000030a0| 09 09 69 66 20 28 61 73 | 63 69 69 66 6c 75 73 68 |..if (as|ciiflush|
|000030b0| 29 20 7b 0d 09 09 09 69 | 66 20 28 28 2a 65 6d 64 |) {....i|f ((*emd|
|000030c0| 70 2d 3e 70 75 74 63 68 | 61 72 29 28 43 52 29 29 |p->putch|ar)(CR))|
|000030d0| 20 7b 0d 09 09 09 09 72 | 65 74 75 72 6e 28 2d 31 | {.....r|eturn(-1|
|000030e0| 29 3b 0d 09 09 09 7d 0d | 09 09 09 69 66 20 28 28 |);....}.|...if ((|
|000030f0| 2a 65 6d 64 70 2d 3e 70 | 75 74 63 68 61 72 29 28 |*emdp->p|utchar)(|
|00003100| 4c 46 29 29 20 7b 0d 09 | 09 09 09 2f 2a 20 69 6e |LF)) {..|.../* in|
|00003110| 20 76 74 6e 65 77 6c 69 | 6e 65 20 6d 6f 64 65 2c | vtnewli|ne mode,|
|00003120| 20 77 65 27 6c 6c 20 68 | 61 76 65 20 61 64 64 65 | we'll h|ave adde|
|00003130| 64 20 74 68 65 20 6e 65 | 77 6c 69 6e 65 20 61 6c |d the ne|wline al|
|00003140| 72 65 61 64 79 20 2a 2f | 0d 09 09 09 09 72 65 74 |ready */|.....ret|
|00003150| 75 72 6e 28 2d 31 29 3b | 0d 09 09 09 7d 0d 09 09 |urn(-1);|....}...|
|00003160| 7d 0d 09 09 65 6c 73 65 | 20 7b 0d 09 09 09 69 66 |}...else| {....if|
|00003170| 20 28 28 2a 65 6d 64 70 | 2d 3e 70 75 74 63 68 61 | ((*emdp|->putcha|
|00003180| 72 29 28 73 63 68 61 72 | 29 29 20 7b 0d 09 09 09 |r)(schar|)) {....|
|00003190| 09 72 65 74 75 72 6e 28 | 2d 31 29 3b 0d 09 09 09 |.return(|-1);....|
|000031a0| 7d 0d 09 09 7d 0d 09 7d | 0d 09 69 66 20 28 65 6d |}...}..}|..if (em|
|000031b0| 64 70 2d 3e 75 63 62 2e | 75 5f 65 63 68 6f 6d 20 |dp->ucb.|u_echom |
|000031c0| 3d 3d 20 4c 4f 43 41 4c | 29 20 7b 0d 09 09 65 6d |== LOCAL|) {...em|
|000031d0| 70 72 65 70 28 29 3b 0d | 09 09 69 66 20 28 73 63 |prep();.|..if (sc|
|000031e0| 68 61 72 20 3d 3d 20 43 | 52 29 20 7b 0d 09 09 09 |har == C|R) {....|
|000031f0| 28 2a 65 6d 64 70 2d 3e | 65 6d 29 28 43 52 29 3b |(*emdp->|em)(CR);|
|00003200| 0d 09 09 09 28 2a 65 6d | 64 70 2d 3e 65 6d 29 28 |....(*em|dp->em)(|
|00003210| 4c 46 29 3b 0d 09 09 7d | 0d 09 09 65 6c 73 65 20 |LF);...}|...else |
|00003220| 69 66 20 28 73 63 68 61 | 72 20 3d 3d 20 4c 46 29 |if (scha|r == LF)|
|00003230| 20 7b 0d 09 09 09 28 2a | 65 6d 64 70 2d 3e 65 6d | {....(*|emdp->em|
|00003240| 29 28 4c 46 29 3b 0d 09 | 09 7d 0d 09 09 65 6c 73 |)(LF);..|.}...els|
|00003250| 65 20 69 66 20 28 28 73 | 63 68 61 72 20 3e 3d 20 |e if ((s|char >= |
|00003260| 27 20 27 20 26 26 20 73 | 63 68 61 72 20 3c 20 44 |' ' && s|char < D|
|00003270| 45 4c 45 54 45 29 20 29 | 0d 09 09 09 28 2a 65 6d |ELETE) )|....(*em|
|00003280| 64 70 2d 3e 65 6d 29 28 | 73 63 68 61 72 29 3b 0d |dp->em)(|schar);.|
|00003290| 09 09 65 6c 73 65 20 69 | 66 20 28 73 63 68 61 72 |..else i|f (schar|
|000032a0| 20 3d 3d 20 43 5f 42 52 | 45 41 4b 20 7c 7c 20 73 | == C_BR|EAK || s|
|000032b0| 63 68 61 72 20 3d 3d 20 | 43 54 4c 4c 29 20 0d 09 |char == |CTLL) ..|
|000032c0| 09 09 3b 0d 09 09 65 6c | 73 65 20 69 66 20 28 73 |..;...el|se if (s|
|000032d0| 63 68 61 72 20 3d 3d 20 | 42 53 20 7c 7c 20 73 63 |char == |BS || sc|
|000032e0| 68 61 72 20 3d 3d 20 44 | 45 4c 45 54 45 29 20 7b |har == D|ELETE) {|
|000032f0| 0d 09 09 09 28 2a 65 6d | 64 70 2d 3e 65 6d 29 28 |....(*em|dp->em)(|
|00003300| 42 53 29 3b 0d 09 09 09 | 28 2a 65 6d 64 70 2d 3e |BS);....|(*emdp->|
|00003310| 65 6d 29 28 27 20 27 29 | 3b 0d 09 09 09 28 2a 65 |em)(' ')|;....(*e|
|00003320| 6d 64 70 2d 3e 65 6d 29 | 28 42 53 29 3b 0d 09 09 |mdp->em)|(BS);...|
|00003330| 7d 0d 09 09 65 6c 73 65 | 20 69 66 20 28 73 63 68 |}...else| if (sch|
|00003340| 61 72 20 3c 20 27 20 27 | 29 20 7b 0d 09 09 09 2f |ar < ' '|) {..../|
|00003350| 2a 20 6d 61 6b 65 20 61 | 20 63 6f 6e 74 72 6f 6c |* make a| control|
|00003360| 20 63 68 61 72 61 63 74 | 65 72 20 2a 2f 0d 09 09 | charact|er */...|
|00003370| 09 28 2a 65 6d 64 70 2d | 3e 65 6d 29 28 27 5e 27 |.(*emdp-|>em)('^'|
|00003380| 29 3b 0d 09 09 09 28 2a | 65 6d 64 70 2d 3e 65 6d |);....(*|emdp->em|
|00003390| 29 28 28 63 68 61 72 29 | 20 73 63 68 61 72 20 2b |)((char)| schar +|
|000033a0| 20 27 40 27 29 3b 09 0d | 09 09 7d 0d 09 09 65 6d | '@');..|..}...em|
|000033b0| 65 6e 64 28 29 3b 0d 09 | 7d 0d 09 72 65 74 75 72 |end();..|}..retur|
|000033c0| 6e 28 30 29 3b 0d 7d 0d | 0d 2f 2a 20 73 65 6e 64 |n(0);.}.|./* send|
|000033d0| 20 61 20 73 74 72 69 6e | 67 20 6f 66 20 63 68 61 | a strin|g of cha|
|000033e0| 72 61 63 74 65 72 73 20 | 2a 2f 0d 0d 61 73 63 69 |racters |*/..asci|
|000033f0| 69 73 65 6e 64 73 74 72 | 28 73 74 72 70 29 0d 63 |isendstr|(strp).c|
|00003400| 68 61 72 20 2a 20 73 74 | 72 70 3b 0d 7b 0d 09 69 |har * st|rp;.{..i|
|00003410| 66 20 28 65 6d 64 70 2d | 3e 65 76 65 6e 74 5f 72 |f (emdp-|>event_r|
|00003420| 65 67 20 26 20 54 46 54 | 50 5f 4f 4e 29 0d 09 09 |eg & TFT|P_ON)...|
|00003430| 2f 2a 20 69 66 20 6e 6f | 74 20 61 62 6f 72 74 20 |/* if no|t abort |
|00003440| 63 68 61 72 2c 20 64 6f | 6e 27 74 20 73 65 6e 64 |char, do|n't send|
|00003450| 20 61 6e 79 74 68 69 6e | 67 20 2a 2f 0d 09 09 72 | anythin|g */...r|
|00003460| 65 74 75 72 6e 28 2d 31 | 29 3b 0d 09 09 0d 09 66 |eturn(-1|);.....f|
|00003470| 6f 72 20 28 20 3b 20 2a | 73 74 72 70 3b 20 73 74 |or ( ; *|strp; st|
|00003480| 72 70 2b 2b 29 20 7b 0d | 09 09 69 66 20 28 28 2a |rp++) {.|..if ((*|
|00003490| 65 6d 64 70 2d 3e 70 75 | 74 63 68 61 72 29 28 2a |emdp->pu|tchar)(*|
|000034a0| 73 74 72 70 29 20 29 20 | 7b 0d 09 09 09 72 65 74 |strp) ) |{....ret|
|000034b0| 75 72 6e 28 2d 31 29 3b | 0d 09 09 7d 0d 09 09 69 |urn(-1);|...}...i|
|000034c0| 66 09 28 65 6d 64 70 2d | 3e 75 63 62 2e 75 5f 65 |f.(emdp-|>ucb.u_e|
|000034d0| 63 68 6f 6d 20 3d 3d 20 | 4c 4f 43 41 4c 29 20 7b |chom == |LOCAL) {|
|000034e0| 0d 09 09 09 65 6d 70 72 | 65 70 28 29 3b 0d 09 09 |....empr|ep();...|
|000034f0| 09 28 2a 65 6d 64 70 2d | 3e 65 6d 29 28 2a 73 74 |.(*emdp-|>em)(*st|
|00003500| 72 70 29 3b 0d 09 09 09 | 73 65 74 63 75 72 73 6f |rp);....|setcurso|
|00003510| 72 28 29 3b 0d 09 09 09 | 65 6d 65 6e 64 28 29 3b |r();....|emend();|
|00003520| 0d 09 09 7d 0d 09 7d 0d | 09 28 2a 65 6d 64 70 2d |...}..}.|.(*emdp-|
|00003530| 3e 70 75 74 66 6c 75 73 | 68 29 28 29 3b 0d 7d 0d |>putflus|h)();.}.|
|00003540| 0d 0d 2f 2a 20 73 65 6e | 64 20 61 20 42 72 65 61 |../* sen|d a Brea|
|00003550| 6b 20 2a 2f 0d 0d 73 65 | 6e 64 42 72 65 61 6b 28 |k */..se|ndBreak(|
|00003560| 29 0d 7b 0d 09 69 66 20 | 28 65 6d 64 70 2d 3e 63 |).{..if |(emdp->c|
|00003570| 6f 6e 6e 74 79 70 65 20 | 3d 3d 20 43 4f 4e 4e 5f |onntype |== CONN_|
|00003580| 4d 41 43 54 43 50 0d 09 | 09 7c 7c 20 65 6d 64 70 |MACTCP..|.|| emdp|
|00003590| 2d 3e 63 6f 6e 6e 74 79 | 70 65 20 3d 3d 20 43 4f |->connty|pe == CO|
|000035a0| 4e 4e 5f 43 55 54 43 50 | 29 20 7b 0d 09 09 09 73 |NN_CUTCP|) {....s|
|000035b0| 65 6e 64 63 6f 6d 6d 61 | 6e 64 28 54 4e 49 4e 54 |endcomma|nd(TNINT|
|000035c0| 29 3b 0d 09 09 09 73 65 | 6e 64 73 79 6e 63 68 28 |);....se|ndsynch(|
|000035d0| 29 3b 0d 09 7d 0d 09 65 | 6c 73 65 20 69 66 20 28 |);..}..e|lse if (|
|000035e0| 65 6d 64 70 2d 3e 63 6f | 6e 6e 74 79 70 65 20 3d |emdp->co|nntype =|
|000035f0| 3d 20 43 4f 4e 4e 5f 53 | 45 52 44 29 20 7b 0d 09 |= CONN_S|ERD) {..|
|00003600| 09 73 65 72 73 65 6e 64 | 42 72 65 61 6b 28 29 3b |.sersend|Break();|
|00003610| 0d 09 7d 0d 7d 0d 0d 0d | 2f 2a 20 73 65 6e 64 20 |..}.}...|/* send |
|00003620| 61 6e 20 49 41 43 2d 63 | 6f 6d 6d 61 6e 64 20 70 |an IAC-c|ommand p|
|00003630| 61 69 72 20 2a 2f 0d 0d | 73 65 6e 64 63 6f 6d 6d |air */..|sendcomm|
|00003640| 61 6e 64 28 74 6e 63 6f | 6d 29 0d 69 6e 74 20 74 |and(tnco|m).int t|
|00003650| 6e 63 6f 6d 3b 0d 7b 0d | 09 28 2a 65 6d 64 70 2d |ncom;.{.|.(*emdp-|
|00003660| 3e 70 75 74 63 68 61 72 | 29 28 54 4e 49 41 43 29 |>putchar|)(TNIAC)|
|00003670| 3b 0d 09 28 2a 65 6d 64 | 70 2d 3e 70 75 74 63 68 |;..(*emd|p->putch|
|00003680| 61 72 29 28 28 63 68 61 | 72 29 20 74 6e 63 6f 6d |ar)((cha|r) tncom|
|00003690| 29 3b 0d 09 28 2a 65 6d | 64 70 2d 3e 70 75 74 66 |);..(*em|dp->putf|
|000036a0| 6c 75 73 68 29 28 29 3b | 0d 7d 0d 0d 2f 2a 20 73 |lush)();|.}../* s|
|000036b0| 65 6e 64 20 61 20 74 65 | 6c 6e 65 74 20 53 79 6e |end a te|lnet Syn|
|000036c0| 63 68 20 73 65 71 75 65 | 6e 63 65 2d 2d 55 52 47 |ch seque|nce--URG|
|000036d0| 20 2b 20 44 4d 2c 20 44 | 4d 2c 20 74 6f 20 63 61 | + DM, D|M, to ca|
|000036e0| 75 73 65 20 68 6f 73 74 | 20 74 6f 20 66 6c 75 73 |use host| to flus|
|000036f0| 68 20 6e 6f 6e 2d 63 6f | 6e 74 72 6f 6c 20 64 61 |h non-co|ntrol da|
|00003700| 74 61 20 2a 2f 0d 0d 73 | 65 6e 64 73 79 6e 63 68 |ta */..s|endsynch|
|00003710| 28 29 0d 7b 0d 09 6d 74 | 63 70 75 72 67 65 6e 74 |().{..mt|cpurgent|
|00003720| 28 29 3b 0d 09 73 65 6e | 64 63 6f 6d 6d 61 6e 64 |();..sen|dcommand|
|00003730| 28 54 4e 44 4d 29 3b 0d | 09 6d 74 63 70 63 6c 72 |(TNDM);.|.mtcpclr|
|00003740| 75 72 67 65 6e 74 28 29 | 3b 0d 09 64 6f 74 63 70 |urgent()|;..dotcp|
|00003750| 75 72 67 65 6e 74 28 29 | 3b 0d 7d 0d 0d 0d 0d 2f |urgent()|;.}..../|
|00003760| 2a 20 68 65 72 65 20 66 | 6f 6c 6c 6f 77 73 20 61 |* here f|ollows a|
|00003770| 20 6d 65 73 73 20 6f 66 | 20 64 6f 77 6e 6c 6f 61 | mess of| downloa|
|00003780| 64 20 66 69 6c 65 20 74 | 72 61 6e 73 66 65 72 20 |d file t|ransfer |
|00003790| 73 75 70 70 6f 72 74 20 | 2a 2f 0d 2f 2a 20 32 20 |support |*/./* 2 |
|000037a0| 73 68 6f 72 74 20 72 6f | 75 74 69 6e 65 73 20 74 |short ro|utines t|
|000037b0| 6f 20 67 65 74 20 66 69 | 6c 65 20 74 72 61 6e 73 |o get fi|le trans|
|000037c0| 66 65 72 20 67 6f 69 6e | 67 20 2a 2f 0d 0d 2f 2a |fer goin|g */../*|
|000037d0| 20 66 6f 72 20 63 6f 6d | 70 61 74 69 62 69 6c 69 | for com|patibili|
|000037e0| 74 79 20 77 69 74 68 20 | 63 31 39 20 66 69 6c 65 |ty with |c19 file|
|000037f0| 20 74 72 61 6e 73 66 65 | 72 20 2a 2f 0d 0d 73 65 | transfe|r */..se|
|00003800| 6e 64 66 74 63 68 61 72 | 28 74 63 68 61 72 29 0d |ndftchar|(tchar).|
|00003810| 63 68 61 72 20 74 63 68 | 61 72 3b 0d 7b 0d 09 28 |char tch|ar;.{..(|
|00003820| 2a 65 6d 64 70 2d 3e 70 | 75 74 63 68 61 72 29 28 |*emdp->p|utchar)(|
|00003830| 74 63 68 61 72 29 3b 0d | 7d 0d 0d 0d 2f 2a 20 6d |tchar);.|}.../* m|
|00003840| 6f 76 65 20 74 68 65 20 | 63 75 72 73 6f 72 20 74 |ove the |cursor t|
|00003850| 6f 20 74 68 65 20 67 69 | 76 65 6e 20 78 2c 79 20 |o the gi|ven x,y |
|00003860| 6c 6f 63 61 74 69 6f 6e | 20 2a 2f 0d 0d 63 75 72 |location| */..cur|
|00003870| 73 6d 6f 76 65 74 6f 28 | 78 6c 6f 63 2c 20 79 6c |smoveto(|xloc, yl|
|00003880| 6f 63 29 0d 69 6e 74 20 | 78 6c 6f 63 3b 0d 69 6e |oc).int |xloc;.in|
|00003890| 74 20 79 6c 6f 63 3b 0d | 7b 0d 09 69 6e 74 20 63 |t yloc;.|{..int c|
|000038a0| 6f 75 6e 74 3b 0d 0d 09 | 69 66 20 28 65 6d 64 70 |ount;...|if (emdp|
|000038b0| 2d 3e 69 62 6d 5f 6b 65 | 79 6d 6f 64 65 20 7c 7c |->ibm_ke|ymode |||
|000038c0| 20 28 21 65 6d 64 70 2d | 3e 63 75 72 73 65 65 6b | (!emdp-|>curseek|
|000038d0| 6d 6f 64 65 20 26 26 20 | 79 70 6f 73 20 3d 3d 20 |mode && |ypos == |
|000038e0| 79 6c 6f 63 29 20 29 20 | 7b 0d 09 09 2f 2a 20 69 |yloc) ) |{.../* i|
|000038f0| 66 20 69 62 6d 5f 6b 65 | 79 6d 6f 64 65 2c 20 6d |f ibm_ke|ymode, m|
|00003900| 6f 76 65 20 75 70 20 6f | 72 20 64 6f 77 6e 20 77 |ove up o|r down w|
|00003910| 69 74 68 6f 75 74 20 67 | 6f 69 6e 67 20 74 6f 20 |ithout g|oing to |
|00003920| 74 68 65 20 6c 65 66 74 | 20 6d 61 72 67 69 6e 20 |the left| margin |
|00003930| 2a 2f 0d 09 09 2f 2a 20 | 65 6c 73 65 20 69 66 20 |*/.../* |else if |
|00003940| 6f 6e 20 63 6f 72 72 65 | 63 74 20 79 20 6d 6f 76 |on corre|ct y mov|
|00003950| 65 20 73 74 72 61 69 67 | 68 74 20 74 6f 20 65 6d |e straig|ht to em|
|00003960| 64 70 2d 3e 78 70 6f 73 | 20 2a 2f 0d 09 09 63 6f |dp->xpos| */...co|
|00003970| 75 6e 74 20 3d 20 78 70 | 6f 73 20 2d 20 78 6c 6f |unt = xp|os - xlo|
|00003980| 63 3b 0d 09 09 69 66 20 | 28 63 6f 75 6e 74 20 3e |c;...if |(count >|
|00003990| 20 30 29 20 7b 0d 09 09 | 09 2f 2a 20 6d 6f 76 65 | 0) {...|./* move|
|000039a0| 20 6c 65 66 74 20 2a 2f | 0d 09 09 09 73 65 6e 64 | left */|....send|
|000039b0| 4c 65 66 74 28 63 6f 75 | 6e 74 29 3b 0d 09 09 7d |Left(cou|nt);...}|
|000039c0| 0d 09 09 65 6c 73 65 20 | 7b 0d 09 09 09 2f 2a 20 |...else |{..../* |
|000039d0| 6d 6f 76 65 20 72 69 67 | 68 74 20 2a 2f 0d 09 09 |move rig|ht */...|
|000039e0| 09 63 6f 75 6e 74 20 3d | 20 2d 20 63 6f 75 6e 74 |.count =| - count|
|000039f0| 3b 0d 09 09 09 73 65 6e | 64 52 69 67 68 74 28 63 |;....sen|dRight(c|
|00003a00| 6f 75 6e 74 29 3b 0d 09 | 09 7d 0d 09 09 69 66 20 |ount);..|.}...if |
|00003a10| 28 65 6d 64 70 2d 3e 69 | 62 6d 5f 6b 65 79 6d 6f |(emdp->i|bm_keymo|
|00003a20| 64 65 29 20 7b 0d 09 09 | 09 63 6f 75 6e 74 20 3d |de) {...|.count =|
|00003a30| 20 79 70 6f 73 20 2d 20 | 79 6c 6f 63 3b 0d 09 09 | ypos - |yloc;...|
|00003a40| 09 69 66 20 28 63 6f 75 | 6e 74 20 3e 20 30 29 20 |.if (cou|nt > 0) |
|00003a50| 7b 0d 09 09 09 09 2f 2a | 20 6d 6f 76 65 20 75 70 |{...../*| move up|
|00003a60| 20 2a 2f 0d 09 09 09 09 | 73 65 6e 64 55 70 28 63 | */.....|sendUp(c|
|00003a70| 6f 75 6e 74 29 3b 0d 09 | 09 09 7d 0d 09 09 09 65 |ount);..|..}....e|
|00003a80| 6c 73 65 20 7b 0d 09 09 | 09 09 2f 2a 20 6d 6f 76 |lse {...|../* mov|
|00003a90| 65 20 64 6f 77 6e 20 2a | 2f 0d 09 09 09 09 63 6f |e down *|/.....co|
|00003aa0| 75 6e 74 20 3d 20 2d 63 | 6f 75 6e 74 3b 0d 09 09 |unt = -c|ount;...|
|00003ab0| 09 09 73 65 6e 64 44 6f | 77 6e 28 63 6f 75 6e 74 |..sendDo|wn(count|
|00003ac0| 29 3b 0d 09 09 09 7d 0d | 09 09 7d 0d 09 7d 0d 09 |);....}.|..}..}..|
|00003ad0| 65 6c 73 65 20 69 66 20 | 28 65 6d 64 70 2d 3e 63 |else if |(emdp->c|
|00003ae0| 75 72 73 65 65 6b 6d 6f | 64 65 29 20 7b 0d 09 09 |urseekmo|de) {...|
|00003af0| 2f 2a 20 20 3d 3d 20 43 | 55 52 56 49 4d 4f 44 45 |/* == C|URVIMODE|
|00003b00| 20 2a 2f 0d 09 09 69 66 | 20 28 79 6c 6f 63 20 21 | */...if| (yloc !|
|00003b10| 3d 20 79 70 6f 73 29 0d | 09 09 09 73 65 6e 64 76 |= ypos).|...sendv|
|00003b20| 76 69 6d 6f 76 65 28 79 | 6c 6f 63 29 3b 0d 09 09 |vimove(y|loc);...|
|00003b30| 69 66 20 28 78 6c 6f 63 | 20 21 3d 20 78 70 6f 73 |if (xloc| != xpos|
|00003b40| 29 0d 09 09 09 73 65 6e | 64 68 76 69 6d 6f 76 65 |)....sen|dhvimove|
|00003b50| 28 78 6c 6f 63 29 3b 0d | 09 7d 0d 23 69 66 64 65 |(xloc);.|.}.#ifde|
|00003b60| 66 20 45 4d 41 43 53 43 | 41 4e 0d 09 65 6c 73 65 |f EMACSC|AN..else|
|00003b70| 20 69 66 20 28 65 6d 64 | 70 2d 3e 63 75 72 73 65 | if (emd|p->curse|
|00003b80| 65 6b 6d 6f 64 65 20 3d | 3d 20 43 55 52 45 4d 41 |ekmode =|= CUREMA|
|00003b90| 43 53 4d 4f 44 45 29 20 | 7b 0d 09 09 69 66 20 28 |CSMODE) |{...if (|
|00003ba0| 79 6c 6f 63 20 21 3d 20 | 79 70 6f 73 29 0d 09 09 |yloc != |ypos)...|
|00003bb0| 09 73 65 6e 64 76 65 6d | 61 63 73 6d 6f 76 65 28 |.sendvem|acsmove(|
|00003bc0| 79 6c 6f 63 29 3b 0d 09 | 09 69 66 20 28 78 6c 6f |yloc);..|.if (xlo|
|00003bd0| 63 20 21 3d 20 78 70 6f | 73 29 0d 09 09 09 73 65 |c != xpo|s)....se|
|00003be0| 6e 64 68 65 6d 61 63 73 | 6d 6f 76 65 28 78 6c 6f |ndhemacs|move(xlo|
|00003bf0| 63 29 3b 0d 09 7d 0d 23 | 65 6e 64 69 66 0d 09 65 |c);..}.#|endif..e|
|00003c00| 6c 73 65 20 7b 0d 09 09 | 2f 2a 20 73 6c 6f 77 20 |lse {...|/* slow |
|00003c10| 73 74 61 6e 64 61 72 64 | 20 6d 65 74 68 6f 64 20 |standard| method |
|00003c20| 74 6f 20 6d 6f 76 65 20 | 63 75 72 73 6f 72 20 74 |to move |cursor t|
|00003c30| 6f 20 6c 65 66 74 20 6d | 61 72 67 69 6e 20 2a 2f |o left m|argin */|
|00003c40| 0d 09 09 69 66 20 28 79 | 6c 6f 63 20 21 3d 20 79 |...if (y|loc != y|
|00003c50| 70 6f 73 29 20 7b 0d 09 | 09 09 73 65 6e 64 4c 65 |pos) {..|..sendLe|
|00003c60| 66 74 28 78 70 6f 73 29 | 3b 0d 09 0d 09 09 09 2f |ft(xpos)|;....../|
|00003c70| 2a 20 6d 6f 76 65 20 75 | 70 20 6f 72 20 64 6f 77 |* move u|p or dow|
|00003c80| 6e 20 2a 2f 0d 09 09 09 | 63 6f 75 6e 74 20 3d 20 |n */....|count = |
|00003c90| 79 70 6f 73 20 2d 20 79 | 6c 6f 63 3b 0d 09 09 09 |ypos - y|loc;....|
|00003ca0| 69 66 20 28 63 6f 75 6e | 74 20 3e 20 30 29 20 7b |if (coun|t > 0) {|
|00003cb0| 0d 09 09 09 09 2f 2a 20 | 6d 6f 76 65 20 75 70 20 |...../* |move up |
|00003cc0| 2a 2f 0d 09 09 09 09 73 | 65 6e 64 55 70 28 63 6f |*/.....s|endUp(co|
|00003cd0| 75 6e 74 29 3b 0d 09 09 | 09 7d 0d 09 09 09 65 6c |unt);...|.}....el|
|00003ce0| 73 65 20 7b 0d 09 09 09 | 09 2f 2a 20 6d 6f 76 65 |se {....|./* move|
|00003cf0| 20 64 6f 77 6e 20 2a 2f | 0d 09 09 09 09 63 6f 75 | down */|.....cou|
|00003d00| 6e 74 20 3d 20 2d 63 6f | 75 6e 74 3b 0d 09 09 09 |nt = -co|unt;....|
|00003d10| 09 73 65 6e 64 44 6f 77 | 6e 28 63 6f 75 6e 74 29 |.sendDow|n(count)|
|00003d20| 3b 0d 09 09 09 7d 0d 09 | 09 09 73 65 6e 64 52 69 |;....}..|..sendRi|
|00003d30| 67 68 74 28 78 6c 6f 63 | 29 3b 0d 09 09 7d 0d 09 |ght(xloc|);...}..|
|00003d40| 09 2f 2a 20 6d 6f 76 65 | 20 63 75 72 73 6f 72 20 |./* move| cursor |
|00003d50| 6c 65 66 74 20 6f 6e 20 | 73 61 6d 65 20 6c 69 6e |left on |same lin|
|00003d60| 65 20 2a 2f 0d 09 09 65 | 6c 73 65 20 69 66 20 28 |e */...e|lse if (|
|00003d70| 78 6c 6f 63 20 3c 20 78 | 70 6f 73 29 20 7b 0d 09 |xloc < x|pos) {..|
|00003d80| 09 09 63 6f 75 6e 74 20 | 3d 20 78 70 6f 73 20 2d |..count |= xpos -|
|00003d90| 20 78 6c 6f 63 3b 0d 09 | 09 09 73 65 6e 64 4c 65 | xloc;..|..sendLe|
|00003da0| 66 74 28 63 6f 75 6e 74 | 29 3b 0d 09 09 7d 0d 09 |ft(count|);...}..|
|00003db0| 09 2f 2a 20 6d 6f 76 65 | 20 63 75 72 73 6f 72 20 |./* move| cursor |
|00003dc0| 72 69 67 68 74 20 6f 6e | 20 73 61 6d 65 20 6c 69 |right on| same li|
|00003dd0| 6e 65 20 2a 2f 0d 09 09 | 65 6c 73 65 20 69 66 20 |ne */...|else if |
|00003de0| 28 78 6c 6f 63 20 3e 20 | 78 70 6f 73 29 20 7b 0d |(xloc > |xpos) {.|
|00003df0| 09 09 09 63 6f 75 6e 74 | 20 3d 20 78 6c 6f 63 20 |...count| = xloc |
|00003e00| 2d 20 78 70 6f 73 3b 0d | 09 09 09 73 65 6e 64 52 |- xpos;.|...sendR|
|00003e10| 69 67 68 74 28 63 6f 75 | 6e 74 29 3b 0d 09 09 7d |ight(cou|nt);...}|
|00003e20| 0d 09 7d 0d 09 2f 2a 20 | 66 6c 75 73 68 20 74 68 |..}../* |flush th|
|00003e30| 65 20 6f 75 74 70 75 74 | 20 62 75 66 66 65 72 73 |e output| buffers|
|00003e40| 20 6e 6f 77 20 74 68 61 | 74 20 77 65 27 76 65 20 | now tha|t we've |
|00003e50| 73 65 6e 74 20 6f 75 74 | 20 74 68 65 20 6d 6f 76 |sent out| the mov|
|00003e60| 65 73 20 2a 2f 0d 09 28 | 2a 65 6d 64 70 2d 3e 70 |es */..(|*emdp->p|
|00003e70| 75 74 66 6c 75 73 68 29 | 28 29 3b 0d 7d 0d 0d 00 |utflush)|();.}...|
|00003e80| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00003e90| 2b 48 f1 f0 2f 2e 00 18 | 2f 2e 00 14 2f 2e 00 10 |+H../...|/.../...|
|00003ea0| 2f 0c 2f 0b 4e ba fc 06 | 2e 00 66 06 17 7c 00 01 |/./.N...|..f..|..|
|00003eb0| 0c 61 73 63 69 69 74 6f | 6b 65 6e 2e 63 bd 02 00 |.asciito|ken.c...|
|00003ec0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00003ed0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00003ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ef0| 00 00 a9 8d 3a 65 00 00 | 00 00 00 00 01 7e 4e 5e |....:e..|.....~N^|
|00003f00| 4e 75 89 76 61 6c 69 64 | 45 64 69 74 00 00 4e 56 |Nu.valid|Edit..NV|
|00003f10| 00 00 2f 0b 59 8f a9 24 | 26 5f 70 00 72 45 b2 6b |../.Y..$|&_p.rE.k|
|00003f20| 00 6c 67 08 72 46 b2 6b | 00 6c 66 12 4a ad ed 30 |.lg.rF.k|.lf.J..0|
|00003f30| 67 0c 22 2d ed 30 b2 ad | e9 92 67 02 70 01 26 6e |g."-.0..|..g.p.&n|
|00003f40| ff fc 4e 5e 4e 75 92 76 | 61 6c 69 64 45 64 69 74 |..N^Nu.v|alidEdit|
|00003f50| 4f 72 50 72 6f 6a 65 63 | 74 00 00 00 4e 56 00 00 |OrProjec|t...NV..|
|00003f60| 48 e7 01 10 3e 2e 00 0e | 26 6e 00 08 4a 2e 00 13 |H...>...|&n..J...|
|00003f70| 67 08 2f 0b 3f 07 a9 39 | 60 06 2f 0b 3f 07 a9 3a |g./.?..9|`./.?..:|
|00003f80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 3c 65 6d |...H..Mo|naco.<em|
|00003f90| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 3c 66 6f |.h>.#inc|lude <fo|
|00003fa0| 6e 74 2e 68 3e 0d 00 06 | 00 04 00 27 00 00 01 e1 |nt.h>...|...'....|
|00003fb0| 02 00 00 27 00 00 01 e1 | 02 00 a4 d8 1c 8e 00 00 |...'....|........|
|00003fc0| 00 9f 00 00 00 a3 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00003fd0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 0f 54 00 |...L...L|...2..T.|
|00003fe0| 04 6a 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.j.....2|..MPSR..|
|00003ff0| 00 0a 03 ed ff ff 00 00 | 00 00 00 10 8d 48 00 00 |........|.....H..|
+--------+-------------------------+-------------------------+--------+--------+
